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FOREWORD 


This document is the £inal report for work performed by the 
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program, under the sponsorship of the National Aeronautics and 
Space Administration (NASA) Lewis Research Center accomplished the 
technical effort involved in the computations of emissions using a 
3-D combustor computer program. 

The assistance and guidance rendered by Dr. C. J, Marek, who 
was the NASA Project Manager for the program, is acknowledged. 
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CHAPTER I 


INTRODUCTION 


A. Background 

SiQnif leant advances have been made in combustor analytical 
modeling over the past five years. The use of advanced numerics 
and kinetics has given the combustion engineer the ability to pre- 
dict internal combustor flow field characteristics. These advanced 
tools, while still in their incipient stages, offer the potential 
of reducing the design and development time required for gas tur- 
bine combustors. At the same time, the analytical models increase 
the understanding of the phenomena affecting combustor performance 
and provide the basis for designing better combustors. The optimi- 
zation of the design process will require a judicious blend of the 
emerging analytical tools (correlated and updated with teat data) 
with the established empirical techniques. 

Starting in 1970, Garrett has demonstrated a company commit- 
ment to develop combustor analytical design tools and utilize them 
in the everyday design and development process. in addition to 
extensive company-sponsored efforts, a significant contribution to 
this highly successful effort has been the USARTL Combustor Design 
Criteria Validation Program (Contract DAAJ02-75-C-0044) Among 
the models developed under the above-mentioned USARTL program was 
the 3-D Combustor Performance Model, which is the basis for the 
present program. The present program entailed extending the capa- 
bility of the model to predict pollutant emissions of nitrogen 
oxides and smoke. 


B. Gb ;lactivea 


The objective of the program waa to utilise and extend an 
exiating three-dimenaional (3-D) combustor performance computer 
program: ^ 

o To predict pollutant emisaiona of amoke and NO^; 

o To include the influence of soot, CO^, and H 2 O on radia- 

tion heat transfer; and 

o To extend the two-step hydrocarbon oxidation mechanism to 
a more detailed four -step scheme. 

The program consisted of four tasks: 

o Task I - Formulation of the Method 

o Task II - Computer Coding 

o Task III - Computation of Test Cases 

o Task IV - Reporting and Documentation. 

In Task I, a method was formulated to predict the emissions of 
soot and NO and to extend the radiation and hydrocarbon oxidation 

X 

models. 

In Task II, the method waa inc'^rporated into the 3-D combustor 
program in order to compute the emissions of NO^^ and soot and the 
radiant transfer to the combustor walls. 
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In Task III, the teeulting program was exerciaed for Idle, 
cruise, and takeoff conditions of a JT8D combustor. 

In Task IV, reports were submitted to NASA during and at the 
end of the program. 

C. Summary 

This report is the Final Report of the computations of amis- ^ 

sions program, and presents the work carried out by Garrett under 
the program. Chapter li of the report includes a brief description 
of the original 3-D combustor performance computer program, pro- 
vided for completeness. Chapters III and iv describe the soot 
emissions model and the influence of soot on radiation heat trans- 
fer. The emissions model and the hydrocarbon oxidation mecha- 
nism are described in Chapters V and VI, respectively. Chapter VII 
includes description of the results of the computations. 

Chapter VIII contains concluding remarks. Chapters IX and X, res- 
pectively, contain a list of nomenclature and list of references, 
as cited in this report. Finally, Appendices A, B, C, and D con- \ 

tain, respectively, a description of the 3-D program, the program 
input, a list of FORTRAN variables and a listing of the new 3-D com- 
bustor performance program. 


3 


I 


CHAPTER II 


DESCRIPTION OF THE 3-D COMBUSTOR PERFORMANCE PROGRAM 

The 3-D Combustor Performance Model Computer Program that 
forma the basis of the present work, is briefly described. For 
complete details, refer to Report No. USARTL-TR-55C. ^ 

The 3-D program is general and is capable of predicting recir- 
culating turbulent flow in gas-turbine combustion chambers. 
Reacting or nonreacting, swirling or nonswirling, diffusion and/or 
premixed flames, and gaseous and/or liquid fuel combustion can be 
handled by the program. The program computes the following vari- 
ables in the region of interest: 

o Axial, radial, and swirl velocity components; 

o Pressure; 

o Enthalpy (temperature); in conjunction with the equation 
of state, the temperature determines the density varia- 
tions in the flow field; 

o Turbulent kin^^ic energy and its dissipation rate; 

o Mass fractions of total fuel (mixture fraction) , unburned 
fuel, oxygen, carbon monoxide, CO^ and H 20 > 

o Three radiation flux vectors; 

o Spray trajectory, droplet size distribution, and evapo- 
ration rates. 

The program employs the following physical models to solve the 
variables mentioned above: 
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O Tu rbulence - Two-equation (k-c) turbulence model to 
obtain turbulent kinetic energy and Its dissipation rate. 

o Chemistry - Two-step chemical reaction scheme: 

^ (l + (^2 2 ^ J (1) 

CO + I CO, ,2, ^ 

° Reaction Rate - Fuel and CO consumption rates 

are assumed to be governed by either the time-averaged 
Arrhenius model or the turbulent eddy break-up model. 

® Radiation - A six-flux model of radiation. 

The transport equations for all dependent variables 0 are 
written in the following general form: 


dlv ^ grad if>) » (3, 

where p denotes the mixture density, T the velocity vector, 
the effective or turbulent viscosity, o-^ the effective Prandtl/ 
Schmidt number, the sources of 0; i.e., includes the 

creation/destruction of tfi plus other quantities that do not fall 
under the convective and diffusive terras. Table E-1 in Appendix E 

includes a list of the dependent variables <f> and their source 
terms. 

An iterative, general finite-difference solution procedure 
suitable for 3-D elliptic flows in complex geometries is used to 
solve the above system of coupled, nonlinear partial-differential 
equations. The solution procedure involves discretizing the dif- 
ferential equations by integration over elementary finite- 
difference control volumes surrounding grid nodes that are nonuni- 
formly spaced over the flow field. 
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CHAPTER III 


SOOT EMISSIONS 

In this chapter, soot formation and oxidation in :;orobU8tl<0n 
chambers are discussed. A general background on soot emissions is 
provided first. Details of the soot formation and oxidation mech- 
anisms reported in the literature are discussed next. Quasi-global 
expressions for soot formation and oxidation are described. A des- 
cription of the influence of turbulence on soot formation and oxi- 
dation is included. The approach adopted in the present work is 
described next. This approach considers the influence of turbulent 
fluctuations on soot formation and oxidation rates. 

A, Background 

The particulate emission of primary concern in tne combustion 
of hydrocarbon fuels is soot, which is evident in the form of 
exhaust smoke. The emission of smoke from gas turbine engines is 
responsible for the following problems: 

o Higher liner temperatures due to Increased radiative heat 
transfer 

o Impingement of carbon on metal surfaces, resulting in 
erosion and reduced equipment lifetimes 

o Distortion of fuel spray distribution due to carbon 
deposits, leading to hot spots 

o Visible pollution and associated health hazards 

o Tactical problems in military applications. 



Recently, attention is being directed toward the combustion of 
alternate fuels derived from coal liquids and shale oil. Since the 
use of these fuels results in significant increases in smoke pro- 
duction, a better understanding of the physical and chemical pro- 
cesses governing soot production is needed. 

The processes governing the formation and subsequent oxidation 
of soot are of a particularly complex nature; and, as such, quanti- 
tative models of soot production have yet to be developed. Soot is 
not an equilibrium product of combustion; and, therefore, its forma- 
tion is influenced as much by the physical processes of atomiza- 
tion, evaporation, and fuel/air mixing as by reaction kinetics. 
Soot is generally produced anywhere within the combustor where 
fuel/air mixing is inadequate, resulting in oxygen-deficient, high- 
temperature zones. 

For the pressures and temperatures normally prevalent in gas 
turbine combustors, equilibrium calculations indicate that solid 
carbon appears when there is insufficient oxygen to oxidize the 
hydrocarbon to CO and H 2 according to the relation: 


C^Hy + I 02-«-xC0 + ^ H 2 (4) 

That is, the carbon-oxygen mass ratio for incipient soot formation 
is 12:16; or, alternatively, the atomic C-0 ratio is unity. How- 
ever, since soot formation is essentially a nonequilibt ium phen- 
omenon, experimentally, soot is observed at C-0 ratios (a) much 
less than unity at low temperatures (<2000*K) ; and (b) greater than 
unity at higher temperatures.^ 

Smoke levels are primarily dependent on the following: 

o Air/fuel mixing 
o Temperature 
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o Equivalence rakio 

o Kealdence time of air/fuel mixture 

o Pressure 
o Fuel composition. 

These factors influence both the formation and subsequent oxidation 
of soot and are dependent on engine operating conditions, details 
of the combustor internal flow field, fuel droplet characteristics, 
etc. 


1 

i 




B . Mechanism of Soot Formation 


Detailed discussions of the many mechanisms proposed to 
explain the chemical and physical processes governing soot forma- 
tion are available in reviews by Haynes and Wagner, Street and 
Thomas,^ Palmer and Culliss,® Gaydon and Wolf hard,® Homann,^ and 

O 

Bittner and Howard. Based on the information available, the pro- 
cess of soot formation can be considered to occur in three distinct 
stages : 

o Soot-particle nucleation 

o Agglomerution and surface growth 

o Coagulation. 

The first stage of soot-particle nucleation is the most diffi- 
cult to describe, and there is considerable controversy regarding 
this. The two most viable hypotheses advanced to date are based on 
ionic and radical polymerizations. 

The theory of ionic polymerizations contends that positive 
ions serve as the nuclei for carbon formation in flames.®'^® Based 
on this theory, Howard^^ showed that the chain structure of carbon 
particles and the uniform size of the spherical chain units can be 
explained. Experiments by Howard and coworkers have demonstrated 
this theory to be feasible. 
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The theory of radical polymerizations considers that fuel 
Py*^olysis gives rise to elementary unsaturated hydrocarbon mole- 
cules (e.g., acetylene), which polymerize via radical chain mechan- 
isms. Thus, soot formation is mainly due to gas-phase reactions 
and is not directly due to liquid pyrolysis. This mechanism has 
also been proposed by Pot ter as the "Acetylene Mechanism of Soot 
Formation." Mass spectrometr ic measurements of species such as 

obtained in flames^^ and shock-tube 
invest igations^ tend to support the radical polymerization theory. 
However, since a continuation of such a chain-reaction sequence 
cannot lead directly to carbon particles, chain-branching and 
ring-closure, followed by aggl«neration and dehydrogenation,^'^® 
must take place at some point prior to soot formation. 


In the second stage of soot formation (agglomeration and sur- 
face growth) , spherical units of carbon particles (about 250A in 
size) are formed by agglomeration and surface growth of the nuclei 
formed in the first stage. 


Finally, in the third stage, the coagulation of the spherical 
carbon particles leads to the characteristic chain-like structure 
of soot. Dehydrogenation continues through both the second and 
third stages. 


17 

Jensen proposed a model that treats the various steps of 
soot formation in some detail. The model agreed qualitatively with 
experimental observations in a methane flame. However, due to the 
complexities associated with the detailed reaction mechanism, and 
uncertainties in the rate constants, the Jensen model is not suit- 
able for gas-turbine combustor analysis. 

Since quantitative description of the soot formation mechan- 
ism applicable to general conditions are not available, quasi- 
global models as described later in this ' pter are required for 
the computation of soot emissions. 


' *» 




c. Mechanism of Soot Oxidation 

Analytical and empirical literature on soot o/idation is 
extensive. However, because of the complexities involved, consid- 
erable controversy exists concerning the rr.achanism of soot 
oxidation, and many basic questions have yet to be answered. Con~ 
sideration of soot oxidation processes is Important, since soot 
concentration in the exhaust gases is determined by both the rela- 
tive rates of soot formation and oxidation in the flame zone and 
the surface oxidation rate in hot post-flame gases. In this 
Chapter, a limited review of the soot oxidation models and a 
rationale for selecting the model used in the present work is pre- 
sented. 


Many studies have been reported on the derivation of mass- 
transfer (oxidati'^n) rates for single-carbon particles in a hot- 
oxidizing ambient environment. Recently, studies on the theory of 

1 Q 

burning carbon particles were made by Avedesian and Davidson, 
Ubhayakar and Williams,^® and Libby and Blake. These studies 
involved simplifying assumptions with regard to the fluid- 
mechanical and chemical aspects of the problem. Amundson and 

0 0 0 0 O A 

coworkers * * presented a model for the diffusion and chemical 

reaction in the boundary layer surrounding a burning spherical car- 
bon particle in a quiescent gas. The model accounted for radiation 
and for the homogeneous combustion of CO in the gas phase and the 
heterogeneous surface reactions of carbon with oxygen and CO2. The 
model predicted the distribution of the product concentrations 
around the particle. 


High-temperature soot oxidation rates were measured by Lee, et 
al.,^^ in the tall of propane diffusion flames. The soot oxidation 
rate particle surface area was determined as a func- 
tion of temperature and partial pressure of oxygen, as follows: 


R «1.09xl0®P^ exp (-19725/T) kg/m^s (5) 

ox Oj 

The measurements were conducted in the temperature range of 1310® 

26 

to 1670 ®K. Tesner and Tsibulevsky also measured flame-soot oxi- 
dation rates over the temperature range of 1400® to 2000®K and 
found good agreement with the above expression. Feugier measured 
soot concentrations in fuel-rich ethane-oxygen flames and deduced a 

kinetic expression for the oxidation of soot particles similar to 

25 

the one by Lee, et al. 

Based on the measurements of the surface oxidation rates of 
pyrolytic graphite and the similarity of small soot particles to 
pyrolytic graphite at the microscopic level, Radcllffe and Apple- 
ton^® proposed that the soot oxidation rate should exhibit a local 
maximum (for a fixed O 2 partial pressure and increasing tem- 
perature) at temperatures from 2000® to 2500®K for ©2 partial pres- 
sure in the range of 0.05 to 1.0 atmosphere. Additionally, the 
soot oxidation rate should exhibit a firs* order dependence on the 
©2 partial pressure for iO.Ol atmosphere and, at higher pres- 
sures, should a symptoticallj? approach a zero-order dependence. The 
semi -empirical formula for soot oxidation rate proposed by Nagle 
and Strlckland-Constable^® (discussed later in this chapter) con- 
firms this behavior. The model of Lee, et al., can be derived from 
that of Nagle and Str Ickland-Constable for fuel-lean conditions. 
Therefore, the more general model of Nagle and Str Ickland-Constable 
has been adopted in the present work. 
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D. Quasi -^global Models of Scxjt Formation and Oxidation 


Since the elementary steps in the formation and oxidation of 
soot are not totally understood^ the present program uses quasi” 
global models that characterize soot production occurring via a few 
overall steps. Such models have been successful in predicting soot 
production. In this section « some of the quasi-global models 
reported in the literature are described. 

The quasi-global models do not predict the size of soot part- 
icles. With the current state-of-the-art, it is not possible to 
predict the size of formation of the soot particles in any prac- 
tical flow situation. Therefore, it is assumed that particles are 
produced at a known size. It may also be assumed that particles ate 
produced in accordance with a specified size distribution {e.g., 
Gaussian) . 

Tesner , et al,,^^ proposed a soot production model which 
grouped the complex processes of pyrolysis, nuclei formation, and 
soot formation into three rate-limited subglobal steps that include 
(a) a pyrolysis rate first order in hydrocarbon concentration, (b) 
a chain branching and chain termination rate for soot nuclei forma- 
tion rate, and (c) a soot formation rate. 

Pyrolysis: 


% * ®o^fu (-E/RT) (part./m^.s) (6) 

Nuclei Formation: 

^n,f “ % (£-g)n “ g^ Nn(part./m^.s) (7) 

Soot Formation: 

^S,t “ ”'p ” (kg/m^.s) (8) 
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whttre a^, 


_ ^ conatanta for a givan fuaXi n 
ia tha rata of apontaneoua formation of nuclalj n la tha nucleua 
concentration; N ia concentration of aoot part idea; i. ie tha maaa 

of a aoot particle; and and Rg^^ are the nuclei and aoot forma-* 
tion ratea, reapectively. 


Khan and Greevea^* pcoposad a slngXe-atep global axpcesalon aa 
a function of the partial presaure of unburned hydrocarbona (P ), 
the unburned equivalence ratio , and the temperature (T) i 




**S,f " 0-^®® ^HC *^u ®*P (--40P000/RT) gm/cm^a (9) 

Thia model is overly sensitive to the equivalence ratio and, there- 
fore, is not considered in the present work, m addition, in both 
the above models, aoot oxidation rates are not considered. 

Edelman, et al.,^^ consider both soot formation (R^) and soot oxi- 
dation (R^jj) and express the net soot formation rate as: 


dt^ • Rf - (10) 

where equals total surface area available for oxidation. This 
model is more general and, therefore, it has been adopted in the 
present work with appropriate modifications to account for turbu- 
lence effects as described next in Section E. The formation step 
is expressed by a modified Arrhenius type of relation: 

Rj ■ AT^Cg^ Cq exp (-B/RT) gm/cm^s ( 11 ) 

2 

where equal the concentration of unburned oxygen and 

hydrooarbbn (gi./c«3, ,„a where K. «. a, b, E are model conatants. 
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For the oxidation step, Edelman, et al.,^*' adopt the semi-empir leal 
formula of Nagle and str ickland-Constable*® for pyrolytic graphite 
oxidation; this formula is nonlinear and non-Arrhenius in Pq and 
Ti 


^t*^OX 



A^.gm/8 


( 12 ) 


where: 



X 

[1 + K^/(K3Pq^) ]"^ 

(13) 

«A 

s 

20 exp(-30,000/RT) gm/cm^.s atm 

(14) 


X 

4.46x10"^ exp (-15,200/RT) gm/cm^.s. atm. 

(15) 


* 

1.51x10^ exp(-97,000/RT) gm/cm^.s 

(16) 


- 

21.3 exp(4100/RT) atm“^ 

(17) 


Shock-tube measurement^® of soot oxidation rates qualitatively con- 
firms the features of the above formula. With these expressions 
for soot formation and oxidation and assuming a single-soot par- 
ticle size of 250A, Edelman, et al.^^ obtained close agreement of 
the predicted soot concentration (mg/1) with the experimental data 
in a jet-stir red reactor. Thus, these expressions assume perfect 
mixing. In a gas-turbine combustor, however, regions of unroixed 
species will exist, and tutbulence will also influence the soot 
production rates. As such, modifications to these expressions are 
required before they can be used for a general 3— D turbulent flow. 

E. Influence of Turbulence on Soot Formation and Oxidation 

Magnussen, et al.,^^^^® have proposed a model that accounts for 
the influence of turbulent fluctuations on soot production rates. 
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In turbulent flows, chemical reaction occurs when reactants at a 
sufficiently high temperature are mixed at the molecular level. 
The molecular mixing process is analogous to the dissipation (« ) of 
turbulent kinetic energy k and is associated with the smallest 
scales of turbulence. Dissipation is concentrated in highly 
strained regions of the fluid occupied by fine structures with 
characteristic dimensions of the same magnitude as the Kolmogorov 
microscale. The reactants are molecularly mixed in these fine 
structures, where reaction occurs. Magnussen, et al., proposed the 
following expressions for the mass fraction contained in the fine 
structures: 

-3/4 

y* = 9.7 . (R^.) (18) 


where is the turbulence Reynolds number , and the rate of trans- 
fer of mass per unit mass between the fine structures and the sur- 
rounding fluid is: 

-1/4 . 

m - 23.6 . (R^) ^ (19) 


The rate of reaction is proportional to rttX where X is the 
fraction of small-structure eddies that are sufficiently heated to 
react. It is assumed that X is proportional to the ratio of local 
reacted fuel concentration and total fuel concentration. Thus, the 
rate of reaction is: 



-1/4 

23.6 (R^.) 



^“^"(kg/m^ s) 


( 20 ) 


A 


where 

Cp^/(1 + i) 
Cpr/(1 ^ 


X 


( 21 ) 


r *% 


^mln amaller of and (C^ /i) and 1 is the stoichiometric 

oxygen requirement* The temperatui^ T* of the reacting fine struc- 
tures is T above the local time-mean temperature 'ft 

AH C j 

T* - T + AT « T -»> -iTTr— — (22) 

POp 

where 

AHj^ » the heat of reaction 
C M the specific heat 

and the surrounding temperature T^ is 

T° = T - AT , <23) 

1 - y*x 

Using Equations (6) and (6; , the mean rates of nuclei and soot 
formation are then expressed ast 

Rn,f " *’o,T* "o,T° <^ ^ 

+ (f - g)^ n - g^ n* N* y*X P/P* 

“ n° (1 - y* X) P/P° (24) 

and 

R £ * m (a - b N*) n* y*x P/P* + (a " b N°) n° 

(1 - y*X ) P/P° 

Finally, the mean rates of nuclei and soot oxidation are expressed 
as: 


"n.c ■ ®fu 

S) 

(26) 

"*s,c " OfL. ("a/"'’ 

S) 

(27) 


16 


MagnuBsen, at al., used this modal to computa the soot concentca'- 
tions in a turbulant diffusion flama. By adjusting the par- 

ticle diameter (entered as the particle mass in Equation (8) , 
and the constant a^ in Equation (6) , good agreement with experi- 
mental measurements was obtained. 

F . Present Approach 

The model adopted for computing soot emissions in the present 
program is described in the following paragraphs. 

The computation of soot emissions involves the solution of two 
additional transport equations for the concentrations of (a) 
nuclei and (b) soot. These two equations are of the same general 
form as Equation (3) solved by the 3-D Combustor Program. To com- 
plete the equation specifications, the source terms and the Schmidt 
numbers for these two variables are as follows; 

The source term in the nuclei concentration equation is 
expressed as 


*^n,f ■ \,c (28) 

where is given by the smaller of the two values from Equa- 
tions (7) and (24) ; is given by Equation (26) . Thus, these 

expressions amount to the use of the turbulent reaction rates, sub- 
ject to the limitation that they cannot be greater than the rates 
under well-stirred reactor conditions. 

The source term in the soot concentration equation is simi- 
larly expressed as 



(29) 
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where R ^ is given by the analler of the two values from Equa- 
tions (11) and ( 25)1 R^ ^ Is given by the smaller of the two values 
from Equations (12) and (27). 

The turbulent Schmidt numbers and for soot and nuclei 
concentrations are assumed the same as for gaseous fuel (l»e.» 
0.9). 

In the computations carried out In the present work» a dis- 
tribution of two particle sizes was considered s a small size of 
0.025 microns as resulting from nucleation and a large size of 'We 
micron as resulting from fuel droplet pyrolysis and char formation. 
The relative rates of formation of these two sizes of particles was 
assumed to be 90-10 percent. The consideration of two particle 
sizes leads to the solution of a transport equation of the same 
general form as Equation (1) for the concentration of the particles 
in each size. The extension to other sizes is straightforward but 
involves extra computational effort^ since an additional equation 
must be solved for each additional size considered. In view of the 
several assumptions inherent in the analysis of soot production, 
the consideration of other size groups is not necessary at this 
stage. 

The calculation of soot formation is bypassed if the temper- 
ature is less than a value below which the formation rates are 
negligible. It is also bypassed if the local carbon-to-oxygen 
ratio 1s less than the incipient soot formation limit. Both of 
these limits of temperature and carbon-to-oxygen ratio are inputs 
to the calculation procedure and can be varied at will. 

A lack of data exists for computing particle coagulation. 
Attempts to model particle growth In flames^®' have had little 
success. No definite conclusions cculd be reached with these 
models. A lack of understanding of the phenomena and the absence 
of data reduces coagulation computations to mere speculation. 
Therefore, this phenomenon Is not addressed in the present work. 
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CHAPTER IV 


RADIATION HEAT TRANSFER 


A. Background 

The contributors to radiation in combustors fueled by hydro- 
carbons are soot, COj, HjO (vapor ) , inorganic particles, CO, 
unburned fuel (C^Hy) , NO^, and SO2. Only the influence of soot, 
COg, and H2O (vapor) are considered in the present work. Although 
CO and unburned C^^Hy contribute to emission and attenuation of 
radiation within flames, these contributions are localized and of 
secondary importance when total heat-transfer rates are considered. 
The contributions of NOj^ and SOj, can be neglected because of their 
low concentrations. 

The determination of the influence of soot on radiant heat 
transfer reduces to two factors: (a) soot distribution in the 
flame and (b) the radiative properties of gas-soot mixtures. The 
first was discussed in the preceding chapter. Radiative properties 
of gas-soot mixtures are discussed in this chapter. 

The radiation properties of the principal radiating species 
including soot, C02f and H2O, are significantly nongrey. Conse- 
quently, the calculation of the radiation properties is a time- 
consuming task. However, spectral calculations are unnecessary 
since approximate calculations (by means of curve fits) are more 
convenient and provide good accuracy.^® 

An approximate curve-fit procedure for the calculation of 
radiation properties is employed in the present work. 
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B. Radiation P ropertiae of Soot, CO ^ , and H ^ Q Mlxturea 


The absoriitlvity (a) of the gas-soot mixture includes the soot 
absorptivity, the absorptivity due to the absorption bands of CO2 
and H2O, and corrections for the overlapping of bands. 


Utilizing the spectral data,^^ the gas absorptivity is calcu- 
lated by taking a summation over the absorption bands of CO2 and 
H2O. In the approximate calculation method adopted here, a simpler 
approach is used. The gas absorptivity a is written as^^ 

9 


Of, 


Cg (T/Tg) 


(30) 


where 




(31) 


Cg " 9SS emissivity at a temperature T and path length 

LTg/T 


T,Tg a gas and blackbody source temperatures, respec- 

tively 




a partial pressures of CO2 and H2O 


€g is given by 


€ + c — At 

c w cw 


where e^, * eroissivities of CO2 and H2O 


(32) 


Ae^w “ overlap correction factor 


c can be computed using a temperature adjusted version of 
y 43 

Leckner's approximate overlap correction and approximating 

^ W 
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Eg and by curve flta of Pc, Pw, PL, and T to apectral calcula- 
tions. In the range of intereet In gas-turbine combustors, such 
calculations agree to within 5 percent of the spectral calculations 
and the experimental results. 

The temperature adjusted version of Leckner's^^ overlap cor- 
rection which accounts for the 2.7 and liSum overlapped 

An 

regions for mixtures of CO 2 and H 2 O, is 

10.4 

( 10.7 + loin 111.7 

{lO9jgU01.3(p^ + P„)Ll}*-’® P(T) 
for(P^ + P^)L£r0.1 atm-m 
» 0 for (P^ + P^)L<0.1 atm-m 

where C is defined by Equation (31) and F(T) is given by: 

F(T) » -1.0204 X 10”V + 2.2449 

10”^T -0.23469 (T in degrees K) 

The coefficients involved in the curve fits of e and c to P , P , 

C W C 

PL and T are given in Reference 40 and are not reproduced here. 

The absorptivity («) of the gas-soot mixture is given by 

ttg+Cg-agCg (33) 

with Qig obtained above, it remains to determine the soot 

absorptivity. This is obtained by the method of Pelske and Tien.^^ 

This method assumes that the complex refractive Index of soot 1s 

independent of wavelength and that the soot particle diameter is 

small compared to the wavelength of radiation, so that scattering 

is negligible. The spectrally integrated absorptivity can then 

s 

be written in a closed-form expression to determine tv . 

s 
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By using the cedlatlve property calculations o£ the type des- 
cribed above, Sarofim^^ indicated that radiation calculations can 
be made with fair confidence, and that the major source of uncer- 
tainty in such calculations is soot concentration, rather than gas- 
radiation properties. 

C. Present Approach 

The six-flux radiation model incorporated into the 3-D Combus- 
tor Performance Computer Program was used in computing radiation 
heat transfer in the present work. 

This model is based on the Schuster -Hamaker approximation.^^ 
It should be noted that, as pointed out by Siddall,^^ other flux 
model approximations such as Milne-Eddington and Schuster- 
Schwar zschild can be represented by the same form of flux equations 
with constants being different. 


The differential equations describing the variations of the 
fluxes along six directions can be reduced to the following three 
second-order ordinary differential equations: 


q I 1 

dx ^a+S dx > 


1 d , 


dR* 


a+s+1 

r 


1 d 


r d0 ^a+S r d0' 

Where the composite-fluxes R^, R*^ and R^ are defined as 


dR' 


) 


S 


S 

3 


l’* - R*^ - R^) 

(34) 

(2R*^ - R* - R^) 

(35) 

(2R^ - R* - R*^) 

(36) 


2 ^^x+ ^x-^ 


(37) 
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■*' - 1 

(I,. + 1,J 

(3B) 

1 


(39) 


where and 1^^ are the fluxes along the positive direc- 

tions of axial, radial, and circumferential directions, respec- 
tively; Ip_, and are the corresponding fluxes along the 

negative directions. 

a = Absorption coefficient, defined as radiation 

absorbed per unit length 

S ® Scattering coefficient, defined as radiation scat- 

tered per unit length 

E » Black body emissive power -<r1 

<r a The Stefan-Boltzman constant 

The absorption coefficient a is related to the absorptivity a of 
the gas-soot mixture and the path length L by: 

a « - ^ In (1-a) 

In the original version of the 3-D combustor program,^ the 
radiation properties were assigned constant values. For the pre- 
sent work, the absorption coefficient was computed locally as a 
function of gas and soot concentrations by the approximate pro- 
cedure described above. 

The scattering due to soot particles, which are generally of 
diameters below one micron, is negligible. In the present work, a 
uniform value of Q.dm”^ was assumed for the scattering coeffici- 
ent . 
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CHAPTER V 


NITROGEN-OXIDE EMISSIONS 


A. Background 

Nitrogen oxides (NO^^) are formed during any combustion process 
involving air within the normal range of adiabatic flame tempera- 
tures and comprise nitric oxide (NO), nitrogen dioxide (NO^) , and 
small amounts of nitrous oxide {N2O) . Pot turbopropulsion engines, 
the emissions consist mostly of NO, particularly at high power 
conditions, where maximum NO^ concentrations are encountered. 
However, the contribution of NO to total NO^^ emissions decreases at 
low power points. The NO^^ is conventionally expressed in mass 

units of NO2, to which the NO would eventually react in the atmo- 
sphere. 

The major influences contributing to the formation of NO are 
(a) high flame temperature, (b) the availability of oxygen as^pro- 
vided by excess air, and (c) sufficient residence time for the 
reactions to take place. Formation of NO is preceded by the gener- 
ation of N and 0 atoms. Nitrogen (N) atoms are formed by the dis- 
sociation of nitrogen (N2) in the air at high temperatures, and can 
also be a product of hydrocarbon reactions if the fuel contains 
nitrogen. Oxygen (O) atoms are formed primarily from oxygen (O2) 
dissociation. Thus, NO forms both in the reaction zone and in the 
post-reaction, high-temperature gases. A super-equilibrium of O, 
N, and OH concentrations (i.e., concentrations exceeding equil- 
ibrium levels) in the reaction zone leads to NO formation in this 
zone (often termed as 'prompt NO'). Nitric oxide formation is 
controlled by rate-limited reactions, and its calculation is 
dependent on a knowledge of other radical concentrations. 


The conservation equations for the radical and NO concentra~ 

ink 

tions form a set of coupled 'stiff nonlinear differential equa- 
tions and their solution requires special integration procedures. 

One such procedure, which has been developed by Pratt and Hormeck,^^ 
is described next. This procedure has been incorporated into the 
3-D combustor program and has been used to compute the NO emis- 

A 

sions in the present work. 

B. The Chemical Kinetics Program ^ 

The conservation equations for the species involved in NO 
production form a set of 'stiff equations. Pratt and Hormeck^^ 
have developed a numerically efficient computer program (CREK) for 
the solution of such a set of equations. The CreK procedure is 
briefly described in the following paragraphs. 

The species and energy conservation equations for a node, P, 
are expressed in the following standard finite-difference form: 

Where A is the finite-difference coefficient containing the convec- 
tive and diffusive fluxes; (ft is the dependent variable (species 
concentration, enthalpy) ; is the source of subscripts E, W, 

N, S, H, and L refer to the six neighboring nodes of p. 

The CREK program is used to solve the above finite-difference 
equation. The solution is simultaneous for all the species concen- 
trations and temperature at a given node P; and proceeds node-by- 
node until all of the nodes in the flow field are covered. The 
solution procedure involves the derivation of a set of Newton- 
Raphson correction equations for the species concentrations and 
temperature. These equations are solved iteratively by pivoted 
Gaussian elimination. 
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The progtam requltea aa Input the following Information. 

(1) PtevlooB aoltttlon or eatlmate of and tempetature at 
node P; 

(2) Pressure at node P| 

(3) Finite-difference coefficients Ap A„, Aj,, Ag, Ag, and 

A , as calculated in the 3-D combustor program; 

L ' 

(4) 4>p* » (Ae^^e ^ Vw + Vn Vs ^ Vh ^ Vl^/^p 

(5) Enthalpy source coeffients Q, where, enthalpy source «» 

-(Qq + Q^T + + 031^ + Q 4T^)» 

The outputs from the program are 

(1) Mole numbers of all chemical species; 

(2) Temperature at node P; 

(3) Density at node P. 

Further details of the CREK procedure are contained in Refer 
ence 48. 


C. Present Approach 

The number of species considered in the present program is 14: 

C C °2' *^2' «^2* 

denotes the intermediate hydrocarbon as explained in Chap- 
ter^Vl. Each of these species concentrations is governed by a 
transport equation of the same general form aa Equation (3). To 
complete the equation specifications, the source terms and the 
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Schmidt numbers for these variables have to be determined. The 
turbulent Schmidt numbers, , for all the species are assumed to 
be 0.9. The computation of the source terms, 3 ^, is based on the 
reaction mechanism given in Table I. The calculation involved for 
each reaction is illustrated below with reference to the reaction 
A+B = C+D. 

The laminar Arrhenius rate 

(-E/RT) 

where and are the mass fractions of A and B. 

The turbulent eddy-break-up rate for species A is 

€/k 

where Cj^ is a constant, P is the density, and where is the 

smaller of and Mg/i, i being the mass of B required per unit mass 
of A in this reaction. The rate of production/consumption of A is 

R “ smaller of Rj^ and R^ 

The backward rate is treated similarly. All of the reactions 
listed in Table I and the global reactions discussed in Chapter VI 
are treated in this way, and the sources due to chemical reaction 
in the conservation equations for the species are obtained by 
summing the rates due to all of these reactions. The resulting 
species equations are solved by the computer program CRBK described 
above. This determines the concentrations of all of the species. 
Modifications have been made to the CREK program in the present 
work in order to treat the global reactions and the eddy-break-up 
cates for the reaction steps. 


A 

(41) 
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TABLE I. NOjj REACTION MECHANISM. 
Kj - 10* T^ exp (-B/RT) 




Reaction 




X 

b 

E/R (•K) 

1. H 

H 

M 

m 

H2 


M 

12.300 

-1.000 

0.0 

* 

o 

0 

M 

fli 

02 


M 

11.000 

-1.000 

0.0 

3. H 

OH 

N 

a 

H20 


M 

13.850 

-1.000 

0.0 

4. H 

02 


a 

OH 

0 


11.350 

0.0 

8400.000 

5, 0 

H2 


a 

OH 

H 


10.240 

0.0 

4730.000 

6. H 

H20 


» 

OH 

H2 


10.920 

0.0 

10050.000 

7. 0 

H20 


a 

OH 

OH 


10.760 

0.0 

9000.000 

8. N2 

0 


s 

NO 

N 


9.000 

0.0 

25000.000 

9. N 

02 


a 

NO 

0 


5.000 

1.000 

2000.000 

10. N 

OH 


a 

NO 

H 


9.000 

0.0 

0.0 

11. N2 

02 


a 

N 

N02 


11.431 

-1.000 

60600.000 

12. NO 

NO 


a 

N 

N02 


7.000 

0.0 

0.0 

13. NO 

02 


« 

N02 

0 


9.000 

0.0 

22900.000 

14. H 

N02 


a 

N0 

OH 


10.477 

0.0 

0.0 


NOTE: Values are in SI units. 

Reverse rate constant obtained from forward rate constant 
equilibrium constant. 


The conaideration of a detailed mechanlam as shown In Table I 
is computationally time consuming when considering a three- 
dimensional problem. The chemical Kinetics solution Involves a 
point-by-polnt procedure^ proceeding from one grid node at a time 
to the next until all nodes are covered. At any stage, the species 
concentrations at the nodes that are yet to be solved also influ- 
ence the concentrations at the node currently being solved. There- 
fore, the concentrations at the nodes not yet solved, have to be 
estimated or are known from the previous Iteration. Due to this 
explicit (as opposed to Implicit) nature of the coupling between 
values at neighboring nodes, the solution has to be repeated 
several times in order to achieve convergence with attendant large 
computer times. 

In order to reduce computer times, the partial equilibrium 
assumption has been used In some work reported In the literature. 
This Involves the assumption that the following four blmolecular 
reactions are equilibrated: 


H + ©2 3= OH + O (43) 

O + 5* OH + H (44) 

OH + OH 3S H 2 O + O (45) 

CO + OH sa C ©2 + H (46) 


This assumption reduces the number of kinetic equations to be 
solved. The equilibration of these reactions in several premixed 
combustion systems is supported by the studies of References 49-51. 
Their equilibration in a CH.-Air diffusion flame was demonstrated 
by Mitchell, et al. They showed that these reactions are in 
equilibrium over a range of equivalence ratios from little less 
than unity up to approximately 2.5 for a flame at atmospheric pres- 
sure with the reactants initially at about 300*K. The equilibration 
of these reactions at different conditions, more closely resembling 
those In gas-turbine combustors, has not been demonstrated. Thus, 


the partial equilibrium asaumption may not be valid in all regions 
o£ a gas-turbine combustor; hence, it has not been used in the 
present work. The present approach, although more time-consuming, 
is general and does not involve any simplifications regarding the 
chemistry. 


There have been reports of fast integrators for stiff kinetic 
equations in recent literature, e.g.. Reference 57. The use of 
these instead of CREK (which was used in the present work because 
of its availability in a well-tested form while other schemes were 
still in their development and testing phases) will reduce computer 
times and will make fine grid 3-D computations possible without 
undue computational costs. The framework for the kinetics calcu- 
lations has been provided here and the substitution of CREK for 
another procedure should be a straightforward task. The use of 
fast integrators will also enable the treatment of a more detailed 
reaction mechanism for NO^. Thus, steps involving species such as 
HCN (on fuel-rich side) can be included if reliable kinetic data is 
available. 
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CHAPTER VI 


THE POUR-STEP HYDROCARBON OXIDATION MECHANISM 


A, Background 

A successful modeIln9 of combustion systems depends on an 
adequate description of the reaction mechanism. For hydrocarbon 
oxidation, a large number of species participating simultaneously ^ 

in numerous elementary kinetic steps is required to specify the 
reaction mechanism. This results in "stiff" differential equations 
requiring special time-consuming integration methods. For a 
complex 3 -D problem, the computing costs would be prohibitive. 

Besides the large number of species equations to be solved, the 
elementary steps and their rate constants are not well known except 
for the simplest of hydrocarbons e.g., CH^. To get around this 
problem, the gas turbine combustion modeling effort has frequently 
been simplified by using a global approach that reduces chemistry 
to the specification of an overall global oxidation scheme, which 
can predict quantities of interest! fuel consumption and heat 
release rates. 

The oxidation of hydrocarbon fuel can be described by the fol- 
lowing basic steps: 

(a) Transformation of the hydrocarbon fuel into intermediate 
hydrocarbons and hydrogen with little release of energy; 

(b) Oxidation of intermediates to CO and H2; 

{c) Oxidation of CO to CO2; 

(d) Oxidation of H2 to H2O. 
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Steps (b) through (d) are exothermic and are responsible for the 
release of energy and associated temperature rise. A global reac- 
tion scheme, which is designed to correctly model the oxidation 
process, must include a description of these steps. 

B. Hydrocarbon Reaction Mechanisms 

One Step Scheme 

The simplest global mechanism is the one-step scheme: 

Hy + (X * J) Oj-XCOj + f HjO 

The advantage of this mechanism is its simplicity; it involves the 
solution of the conservation equations for unburned fuel and the 
mixture fraction. The heat release and the concentrations of the 
other species are then obtained from linear functions of the amount 
of fuel consumed. This mechanism, however, fails to predict the 
important characteristics of hydrocarbon oxidation, i.e., the 
formation of intermediates and CO, which influence the process con- 
siderably. As a result, this mechanism is inadequate for obtaining 
quantitative predictions. 

Two-Step Scheme 


A slightly more complex scheme is the two-step mechanism: 

Cjj Hy + (| + J) Oj - XCO + J HjO (48) 

CO + ^ Oj -CO 2 (49) 

This Involves the solution of one additional equation: that for 

the concentration of CO. Here again, the formation of intermedi- 
ates is Ignored and so this mechanism cannot predict the time delay 
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between the Initial dlaappeacance of fuel into Intermediates and a 
significant rise In temperature. 

Four -Step Scheme 


The simplest mechanslm which accounts for the essential fea- 
tures of the hydrocarbon oxidation 1s the following four-step 
scheme proposed by Hautman, et al.®^ 


'2N + 2 ^2 ”4 **2 

(50) 

H 4 + O 2 2CO + 2 H 2 

(51) 

CO + 1/2 O 2 - CO 2 

(52) 

H 2 + 1/2 Oj - H 2 O 

(53) 


This scheme is valid only for aliphatic hydrocarbons of the type 

**2N + 2* accommodate a general hydrocarbon Cj^ Hy# the first 
two steps have been modified in the present work; 


=X«y -<=x"y-2 + 
=X«y-2 ^ 2 Oj X CO . 


H. 


(54) 

(55) 


This scheme involves the solution of two additional equations: for 

the concentrations of H 2 and H2. 


The rate expressions for the four-step scheme developed pri- 
marily from propane oxidation results^^ are 


d ) 

— 2 ^ - -10* exp(-E/RT) ICjjHy]*t02l‘’rCjjHy_2J° mole/cc-s (56) 
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d[C H ] 

- -10 evp(-K/RT) roole/cc-8 ( 57 ) 

■ {-lO’* exp{~K/RT) tC0]*[02]^[H20]^J X S mola/cc-a (5B) 

X * K 

“dt * exP(~E/RT) lH2l*I02l”ECj^Hy_2l‘^ mole/cc-a (59) 

where ICO] , etc. are the apecies concentrations In gn)"inoles/cc. 
The parameters'^ for (56) are x » 17.32 t0,88, E - 49,600 ±2400, a * 
0.50 ±0.02, b » 1.07 ±0.05, and c - 0.40 ±0.03; 

for (57), X - 34,70 ±2.00, E = 50,000 ±5000, a « 0.90 ±0.08, b » 

1.18 ±0.10, and c » -0.37 ±0.04; 

for (59), X » 13.52 ±2.2, E - 41,000 ±6400, a « 0.8b ±0.16, b - 1.42 
±0.11, and c = -0.56 ±0.20; 

and for (58), x = 14,6 ±0.25, E » 40,000 ±1200, a » 1.0, b « 0.25, 
and c » 0.50; 

S =• 7,93 exp (-2.48</>) , where the initial equivalence ratio and S 
cannot take values greater than 1. 

The rate expressions were found to predict within reasonable 
accuracy flow reactor and shock tube results on propane oxidation, 
which encompass an equivalence rati? range 0.12 to 2.0, a tempera- 
ture range 960 to 1540 k, and a pressure range 1 to 9 atm. With 

modification to the parameters, experimental flow reactor results 
on the oxidation of butane, 2— and 3— methylpentane, and n"*octane 
are also predicted. 

The tolerance bands on the various parameters reflect the 
sensitivity of the predictions to these parameters and the modifi- 
cations necessary to the values of these parameters in order to 
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obtain prediotiona in agreement with experimental measurements for 
different conditions. In the present i'ork, it was found that the 
tolerance band on most of the parameters is rather wide and that 
for any given flow, changing a parameter from Its lower to its 
upper limit can alter the predictions significantly. For the 
results reported in Chapter VII, the median values of all the para- 
meters were used. Further comparison with more experimental 
measurements is necessary in order to narrow the tolerance bands 
and obtain more certain values. 

C. Present Approach 

The four-step mechanism described above has been incorporated 
into the 3-D Combustor Performance Program. This involved the 
solution of two additional differential equations of the same 
general form as Equation (3), for the concentrations of CjjHy _2 and 
H 2 . The source terms in these equations were obtained from the 
mechanism given by Equation (50-55) . The rate expressions given by 
Equations (56-59) were modified by the eddy-break-up rate to 
account for the influence of turbulence. The procedure used was 
the same as that for the fuel equation^. The effective Schmidt 
numbers for these two species were assumed to be the same as for 
other species, i.e., 0.9. 

Other modifications 'io the 3-D program to incorporate the 
four -step scheme were: 

o The source terms for and CO were modified to be in 

accordance with the four-step scheme: 

Step (1) : CO produced in Step (2) and consumed in 

Step (3). 

o Mixture molecular weight, density, enthalpy (and hence 
temperature) calculation sequences were modified to 
include the two new species: CyHy _2 
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o Computations of Oj, C02» HjO concentrations from element 
conservation were modified to include the two new 
species: **2* 

The four-step scheme was proved to be far superior to the two-step 
scheme in computations of a plug flow reactor (see Chapter VII, 
Results) . 





CHAPTER VII 


RESULTS AND DISCUSSION 


In this section, the results of the computations performed in 
the present program are described. The results of the validation 
of the four-step hydrocarbon oxidation scheme are presented fol- 
lowed by computations of the emissions from a JT8D combustor. 

A. Four-Step Hydrocarbon Oxidation Scheme Results 

Measurements in a plug flow reactor were conducted by Hautman, 
et al., for lean, stoichiometric, and rich propane flames. These 
measurements were used to test the validity of the four-step 
scheme. Computations were performed for these three cases with 
both the two-step and four-step schemes. Sixty axial grid points 
were used in these computations. Reduction of the axial spacing by 
a factor of two, showed negligible changes, thus demonstrating the 
grid- independency of the results. 

Comparison of the results with the measurements are shown in 
Figures 1, 2, and 3 for the lean, stoichiometric and rich cases, 
respectively. Prom these figures, it is clear that the four-step 
scheme is far superior to the two-step scheme in predicting the 
salient features of hydrocarbon combustion. 

Figure 1 (a, b, and c) shows the two-step and four-step hydro- 
carbon oxidation scheme predictions and the corresponding measure- 
ments for the lean CjHg flame. The four-step predictions of C02» 
C^Hg, and temperature agree very closely with the measurements. 
The four-step CO and H 2 predictions are slightly higher than the 
measurements, but the discrepancy is not large. Since in the pre- 
dictions all the Intermediates are lumped into C 2 H^, the total 
measured intermediates are shown in Figure Ic for a more meaningful 
comparison; here, again, the agreement is good. On the other hand. 
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the two-Btep predictiona show conalderable dlacrep/incy for all the 
apeciea and for the temperature. 

Figure 2 (a, b, and c) ahowa the raeaaurementa and predictiona 
for the stoichiometric case. Here the four-step predictions are 
not aa good as for the lean caaei however, compared to the two-atep 
predictions, the four-step results are in much closer agreement 
with the measurements. A majo-: discrepancy is the predicted (four- 
step) H 2 concentration, which is considerably higher than the 
measured values. 

Figure 3 (a, b, and c) shows the measurements and predictions 
for the fuel-rich case. Here, again, the four-step predictiors, 
although not in Vv’jry close agreement with the measurements, are fa-r 
superior to the two-step predictions. The four-step fuel concentra- 
tion and temperature profiles are in good agreement with the 
measurements,- CO, CO 2 , and C 2 H 4 are in fair agreement. Again, the 
H, concentration is overpredicted as in the stoichiometric case. 

As shown by these results, a problem not resolved with the 
four-step scheme is the discrepancy between predicted and measured 
H„ and H 2 O concentrations, especially at stoichiometric and fuel 
rich conditions. The H 2 oxidation rate is predicted to occur more 
slowly, and results in an excess of H 2 and under-prediction of H 2 O, 
as compared to the measurements. A similar observation was also 
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made by Hautman, et al. 

B. JT 8 D Combustor Computations 

The 3-D Combustor Performance Program was set up and run for a 
JT8D-17 combustor as shown in Figure 4. This combustor uses a 
single pressure atomizing injector on the centerline of the can. 
Air is admitted around the injector through a 45-degree swirler. 
The operating points for the computations represent idle, cruise, 
and take-off and are given below: 
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OHtuiniv. i : vj 

OF POOR QUALITY 



FUEL INJECTOR AND PRIMARY SWIRLER EQUIVALENT 
METERING AREA 7.61 PERCENT 


Equivalent Metering Area 


Louver 

Cooling Air 

Combustion 

Air 

Panel 

% 

Panel 

% 

1 

1.53 

2 

7.93 

2 

5.62 

3 

1.92 

3 

7.56 

5 

8.00 

4 

5.69 

8 

15.85 

5 

4.24 

9 

18.09 

6 

3.41 



7 

3.42 



8 

3.43 



9 

2.78 
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Figure 4. 


JT8D-17 Combustor 



Condition 

Airflow 

Ibs/sec 

Pressure 

psia 

Temperature 

®P 

Puel/Alr 

Ratio 

Idle 

4.06 

39.6 

260 

0.0074 

Cruise 

7.87 

103.0 

657 

0.0138 

Take-Off 

16.45 

256.0 

825 

0.0182 


The steps adopted in the solution procedure for the JT8D com- 
bustor are outlined below: 

(1) The 3-D combustor program was used to solve for the vari- 
ables: velocity, pressure, turbulence energy and dissi- 

pation, enthalpy (temperature), mixture fraction, mass 
fractions of unburned fuel, CO, and H2. At this 

stage, the soot and radiation equations were not solved, 
and the solution was carried on until a convergence level 
of approximately 5 percent in cumulative mass residual 
was reached. 

(1) The soot and radiation equations were solved next. The 
radiation fluxes appear as sources in the enthalpy equa- 
tion; and this, in turn, influences the other dependent 
variables. The solution of the variables in Step (1) was 
repeated coupled with the soot and radiation equations. 
The process was continued until a convergence level of 
approximately 1 percent was reached. 

(3) The NOjj equations were solved next. The solution of the 
variables in Steps (1) and (2) was repeated, coupled with 
the NOjj equations. The process was continued until the 
convergence level desired for the final solution 
(^0.5 percent) was reached. 


The reASon £or adoptln9 the above stepwise procedure was to 
cut down on required computer time. Since the soot is generally 
present only in small concentrations, it will influence the main 
flow field only slightly and so delaying the solution of the soot 
and radiation (which is mainly from soot) equations resulted in a 
considerable saving of computer time. Similarly, the NOj^ species 
have an even smaller influence on the other variables and so their 
solution was further delayed. Due to the polnt-by-point nature of 
the ^0^ solution, this solution had to be repeated a number of 
times to achieve convergence, as explained in Chapter V. 

A flow chart of the overall solution procedure is given in 
Figure 5, The various steps are executed automatically by the pro- 
gram from start to completion. 

Computations were performed with both the two-step and four- 
step hydrocarbon oxidation schemes and with a grid of 10 x 10 x 5 
(axial X radial x tangential) points. Due to the coarseness of the 
grid, it was not possible to simulate exactly all of the geometri- 
cal details of the combustor. However, the main features were sim- 
ulated as closely as possible. Due to the large computer times 
required for the calculations, as explained in Chapter V, 
increasing the number of grid points significantly over that used 
was found to be computationally prohibitive. 

The central processor time on a CYBER 730 computer with the 
two-step hydrocarbon scheme was 0.044 seconds per Iteration per 
internal node (boundary nodes that are not calculated are excluded 
here) when the chemical kinetics solution was not activated. 
For the NOjj solution, the central processor time was an additional 
0.2-0. 3 second per iteration per internal node. Typically 100-150 
Iterations were required before the solution was turned on, 
after which an additional 50-100 iterations were required to 
achieve convergence. Thus for the chosen grid (10 x 10 x 5) , a 
complete run required 3000-5000 seconds depending on the conditions 
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ORIGINAL PAGL IS 
OF POOR QUALITY 



NOTE: • RADIATION EQUATIONS NOT 
SOLVED AT THIS STAGE 

• IWO-STEP/FOUR-STEP KINETICS 

(CxHy -2 AND H 2 ALSO FOR FOUR-STEP) 


TYPICALLY, c, = 6% 


TYPICALLY €2 = 0.554-1% 


NOTE: • MULTI-STEP KINETICS 

• CREK PROGRAM 


TYPICALLY e3 » 0.5% 


Flowchart of Overall Solution Procedure. 












for the run (which influences the number of iterations to conver- 
gence) , with the bulk of the time spent on calculations. Since 
the four-step scheme involved the solution of additional equations 
for the intermediate hydrocarbon and Hj, the computation times were 
about 10-15 percent higher than those with the two-step scheme. 
The central memory required for the 10 x 10 x 5 grid was 173,500 
octal words. 

The predicted emissions index for the idle, cruise, and take- 
off conditions with the two-stop and four-step schemes is shown in 
Tables Ila and Ilb. For the idle case, the predicted smoke concen- 
tration is very small and much lower than that experimentally 
observed. The formation of soot, as modeled, is governed by the 
local temperature and fuel/air ratio and also turbulent fluctua- 
tions. Since the temperature and fuel/a ir ratio are low for the 
idle case, the model does not predict significant soot formation. 
Obviously, other factors that have not been modeled and that are 
not precisely known, govern soot formation under such conditions. 

For the cruise and takeoff cases, the emissions indices for 
soot and show the correct trends and are reasonably close to 
the measurements that are available. The differences between the 
two-step and four-step schemes are not significant In the predic- 
tion of the emissions index, which represents an integrated value 
at the combustor exit. The differences in the two schemes are 
significant in the primary zone of the combustor. 

The predicted radiation flux to the combustor wall for the 
conditions of idle, cruise, and takeoff is shown in Table Ilia for 
the two-step scheme and in Table Illb for the four-step scheme. 
The values are reported at the primary, secondary, and tertiary 
zones which are at 6, 21, and 33cm downstream of the fuel nozzle; 
these correspond to the locations at which measurements were con- 
ducted by Claus for different operating conditions. The pre- 
dicted radiation fluxes show the correct trends; i.e., the flur is 
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TABLE Ila, PREDICTED EMISSIONS INDEX WITH TWO-STEP 
HYDROCARBON OXIDATION SCHEME. 



Emission Index 
Gro of Eroissions/Kg of 

Fuel 

Condition 

Smoke 


«°x 

Idle 

0.26 E-3 (0.6)®® 


%o 

Cruise 

1.6 


15 

Takeoff 

1.5 (2.8)®® 

28 (24.4)®^ 

NOTE: Values 

ments 

in parentheses are experimental 
from indicated reference. 

measure- 

TABLE Ilb. 

PREDICTED EMISSIONS INDEX WITH 
HYDROCARBON OXIDATION SCHEME. 

FOUR- STEP 


Emission Index 
Gm of Emissions/Kg of 

Fuel 

Condition 

Smoke 


**°x 

Idle 

0.056 (0.6)®® 



Cruise 

1.3 


13 

Takeoff 

1.2 (2.8)®® 

27 (24.4)®^ 


NOTE: Values in parentheses are experimental measure- 

ments from indicated reference. 
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TABLE Ilia. PREDICTED WALL RADIATION FLUX WITH 
TWO-STEP HYDROCARBON OXIDATION 
SCHEME. 


Condition 

Primary 

Zone 

(W/M^) 

Secondary 

Zone 

(W/M^) 

Tertiary 

Zone 

(W/M^^ 

Idle 

2.9B4 

3.46E4 

1.03E4 

Cruise 

5.551J5 

8.98ES 

2.23E5 

Takeoff 

7.89ES 

1.33E6 

4.26E5 


TABLE mb. 

PREDICTED 
POUR- STEP 
SCHEME. 

WALL RADIATION FLUX WITH 
HYDROCARBON OXIDATION 

Condition 

Primary 

Zone 

(W/M^) 

Secondary 

Zone 

(W/M^) 

Tertiary 

Zone 

(W/M^^ 

Idle 

1.06E4 

1.35E4 

3.19E3 

Cruise 

3.78E5 

9.01E5 

2.13E5 

Takeoff 

6.40E5 

1.34E6 

3.72E5 
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naxinuin in the secondery zone end ninireuin in the tertiary zone. 
This trend was experimentally observed by Claus,®® The level of 
the flux also corresponds to that measured by Claus for slightly 
different conditions. Due to the differences in the conditions for 
which measurements and predictions were made, a direct comparison 
of the two is not shown. 

For the idle case* since the soot concentrations were pre- 
dicted to be very low, the predicted radiation fluxes are also 
towards the low side. The predicted radiation flux with the four- 
step scheme is lower than that with the two-step scheme for the 
idle case, but the soot predictions show the opposite trend, i.e., 
slightly higher with the four-step scheme. This occurs because, in 
the predictions for the idle case, the radiation from the soot is 
low and is due to its small concentration. The gas radiation is 
important and is predicted to be higher with the two-step scheme 
because of a faster temperature rise. 

The computations performed for the three operating conditions 
of the JT8D combustor show that the present model is capable of 
producing reasonable predictions of the emissions of smoke and NO 
and of the wall radiation flux, 
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CHAPTER VIII 


CONCLUSIONS 

In the present work, a method was formulated for the follow- 
ing: 

o computation of soot and NO^^ emissions from a combustor 

o inclusion of the effects of soot on radiant heat 

transfer, and 

o extension of the two-step hydrocarbon oxidation scheme to 
a four-step one. 

The method was coded into the Garrett 3-D Combustor Performance 
Program. A description of the program, list of Fortran variables, 
and program listing have been included in the report to aid the 
reader in understanding the emissions model. 

The computations that were performed show that the method is 
capable of producing reasonable results. The lack of accurate 
experimental data has precluded more detailed validation of the 
model. As reliable experimental data becomes available, further 
computations will reveal the capabilities and limitations of the 
model and the modifications necessary to overcome the limitations. 
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CHAPTER IX 


NOMENCLATURE 

All symbols were defined in the report at the point when first 

referenced. The following is a list of symbols used often in the 
report. 

/ 

a * Absorption coefficient 

C^ » Time-mean concentration of species 1 

Cp ■ Specific heat 

D « Particle diameter 

E » Activation energy 

k » Kinetic energy of turbulence 

^b “ Backward reaction rate constant 

Kg = Equilibrium constant 

Kj a Forward reaction rate constant 

m^ = Mass fraction of species i 

n " Nuclei concentration 

”o " spontaneous nuclei formation 

N a Concentration of soot particles 

P ■ Pressure 

R ■ Reaction rate 

S « Scattering coefficient 

S^ « Source term of dependent variable 

t * Time 

T " Temperature 
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u " Velocity vector 

£ * Bmlssivlty; dissipation rate of turbulence 
</• " General dependent variable 
V « Kinematic viscosity 
■ Effective viscosity 
" Stefan~Boltzmann constant 

Prandtl/Schmidt number of dependent variable <f> 
f) = Density 
X = Wavelength 

Subscripts 

fu = Fuel 
i = Species 1 
n * Nuclei 
©2 * Oxygen 
pr = Products 
S = Soot 

ib - Dependent variable 

Superset ipts 

* = Pine structure 

* « Surrounding fluid 
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APPENDIX A 

DESCRIPTION OF THE 3-D COMBUSTOR PERFORMANCE PROGRAM 


The 3-D performance model is a three-dimensional recirculat- 
ing-flow program that is capable of analyzing a variety of com- 
bustor configurations, including can, can-annular, and annular. 
The program solves for the three velocity components, U, V, and W, 
species concentrations, CyHy_ 2 » C{S), CO, C02f H, H 2 , 0, © 2 / 
OH, H 2 O, N, N 2 » no, NO 2 , turbulence quantities from the k-e turbu- 
lence model, and three radiation fluxes. In addition, the use of 
primitive variables makes modifications to the boundary conditions 
easy, allowing the user to analyze complex inlet geometries. Also 
provided is a subroutine for calculating the trajectories and evap- 
oration rates of a fuel-nozzle spray. The functions of the various 
subroutines are briefly described below. 

Program MAIN (a computer listing has been provided in Appen- 
dix D) is divided into two basic sections. Up to card MA.167, the 
routine is concerned with reading the input data and converting it 
to the program's internal units which are Systems International 
(S.I.). The input sequence is covered in Appendix B so only the 
units will be discussed. Cards MA.7 to MA.ll are used to define 
seven arrays which convert lengths associated with dimensions and 
lengths associated with velocity, energy, mass, temperature, pres- 
sure, and angles respectively. By proper specification in the data 
statements, the user may employ those input units that are most 
convenient. The output units are always S.I. Prom card MA.168 on, 
MAIN'S function is to call the other various routines in their 
proper sequence. 

Subroutine INIT performs some preliminary calculations (AL.IO 
to AT4.3S3), prints the input data (AL.156 to AL.258) , and defines 
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the initial conditions and some of the boundary conditions '*n the 
various arrays (M..259 on). In section AL.iS through AL.78, two 
arrays, JKIN and IKIN, are defined. They merely contain flags 
which indicate tha locations of mass injection points. Cards 
AL.261 to AL.272 contain logic for the restart option. If Tape 0 
from a previous run is saved and then made available for use during 
a subsequent run, the program will read the initial and boundary 
conditions from it. 

Subroutine ALLMOD contains several entry points which perform 
miscellaneous calculations pertaining, usually, to the boundary 
nodes where modifications to the standard equation are in order. 
The cyclic nature of the boundary conditions in the o or K direc- 
tion is evident in FMOD as well as limits to the species mass frac- 
tions. VBLMOD allows the inlet swirl velocity to be increased 
gradually over a number of iterations and assures that overall con- 
tinuity is maintained at the exit plane. DENMOD makes alterations 
to the density at the boundaries to maintain the correct mass-flow 
rate. GAMOD specifies the wall viscosity values as calculated by 
the wall functions. SOMAS is used to initiali?:e an array DIVG 
which is used later in the program. The largest entry point SOMOD 
contains logic for modifying the equation coefficients and source 
terms when cooling slots, walls, and droplet evaporation are 
present. Each variable has its own section and accounts for trans- 
fer with the walla and mass addition from the evaporating fuel. 
SOMODZ deals only with the Z-direction radiation equation and is in 
a section alone as the data storage is slightly different for this 
variable. 

Sub»-outii>p OUTPUT is used for printout purposes. The emis- 
sions index of iSOOT and is calculated and printed here. Sub- 
r-eciuenMy, subroutine FPHINT is called for the printout of all 
dependent variables. 


Subroutine AUX perforins the auxiliary calculations for temper- 
ature, density, viscosity, and source terms. Entry DENS uses AU.ll 
to AU.56 to calculate temperature. Cards AU.52 to AU.56 limit the 
values calculated in order to account for dissociation and early 
Iteration fluctuations. with known temperature, density is then 
determined from AiT.57 to AU.108. VISCO obtains effective viscosity 
from turbulent kinetic energy and dissipation and calculates Y+ for 
use by the wall function routine. GAMMA obtains the effective dif- 
fusion coefficients. SOURCE contains all calculations for source 
terms with the exception of the aforementioned modifications in 
SOMOD. Again, each variable has its own section, with coding that 
is quite straightforward and requires no explanation. 

Subroutine AUXRAD performs the same function as AUX except 
that it pertains only to the radiation equations. 

Subroutine SPRAY is used to determine the evaporation rate of 
the fuel-nozzle spray. A large section, from SP.106 to SP.269, 
deals with locating the droplet, determining free-stream condi- 
tions, and handling the situation where the droplet approaches a 
boundary. Next, various fuel and free-stream properties are evalu- 
ated (to SP.292). The drag forces and time step are then deter- 
mined and used to obtain new velocities and location. If the drop- 
let is below the boiling temperature, no evaporation occurs (SP.340 
to SP.347); but, when the boiling temperature is reached, evapora- 
tion rates are calculated, and the appropriate entries to the evap- 
oration array (EVAP) are made. information concerning momentum 
changes due to evaporation are also stored in their respective 
arrays and later (SP.382 to SP.425) on a scratch file for use when 
the three momentum equations are solved. 

The coefficients for each variable are generated and the solu- 
tion routine called in subroutine STRIDE. First, equations for U, 


m' ■ 

r Ik 

\ ; 

f 

I 

! ; 

! 

p V» and W ate handled (ST. 117 to ST. 632) ^ then the pressure pertur- 

bation (P*) is obtained (ST. 633 to ST. 714) and used to correct the 
velocities (ST. 716 to ST. 753) so that mass errors are reduced. 

Then, the remaining variables are solved with the radiation equa- 
tions having their own special section (ST. 915 to ST. 937). The 
chemical kinetics calculations are contained from NOX.230 to 
NOX.342. Here the inputs to program CRBK are prepared and the out- 
puts from CRER are stored in the respective arrays. 

STRAD is a subroutine used in the radiation model which per- 
forms the same function as STRIDE performed for the other vari- 
ables. 

Subroutines ABSORB, ASYMP, CHEBY, DLECK, EGAS, PENTA, SOOT and 
SCRTCH (from Ref. 40) are used to compute the absorbtivity of gas- 
soot mixtures. 

SOLVE provides a solution to the equations generated in 
STRIDE. A full three-dimensional solution would be time consuming 
and would require enormous computer storage. Therefore, an approx- 
imate solution is obtained by "sweeping" through the field several 
times alternately solving along one direction, while holding the 
values in the other two fixed. The variable ICTDMA (NV) at SO. 36 it. 
used to specify the number of such sweeps. As the program con- 
verges, and the variables assume their final values, the solution 
becomes more accurate. Due to the cyclic nature of the boundary 
conditions in the r#~direction, a cyclic tri-diagonal matrix algo- 
rithm (CTDMA) is used for this direction; the coding sequence is 
contained in SOLVE2. 

Subroutine PPRINT is used for the printout of field values of 
dependent variables. 
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The last part ot the program contains the chemical kinetics 
subroutines: CREK, ChLC, 8PECE, CBEKO hND HCPS. 


Subroutine CREK Is the main routine called trom the 3-D pro- 
gram. It controls the solution strategy: equilibrium or kinetic 
and problems associated with lack of convergence. 


Subroutine CRLC construct the Nawton-Raphson correction 
matrix for both equilibrium and kinetic states and solves for the 
corrections by a standard Gaussian elimination procedure. In the 
present work, modifications have been made to this subroutine n 
order to Incorporate the four-step hydrocarbon oxidation scheme an 
to compute the reaction rates from the eddy-break-up model. 


Subroutine SPECS contains the Newton-Raphson iteration pro- 
cedure for both equilibrium and kinetic states. 

Subroutine CREKO Is the Initialising subroutine and is used 
for the input of element, thermodynamic and reaction mechanism 

data* 


Subroutine HCPS la used for computing the enthalpy, constant 
pressure specific heat and the entropy of the species. 

Further details of the chemical kinetics subroutines are con- 
tained In Ref* 48 e 


A 
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APPENDIX B 

PROGRAM INPUT DESCRIPTION 


Card 


Set 

Variable 

Format 

Description 

1 

TITLE 

20A4 

Each card is a heading for a particular 
three-dimensional array that is printed 
out. These never change (33 cards) . 

2 

TITLB2 

10A4 

Case title card. 

3 

LPl 

8(12, 8X) 

Number of grid nodes in axial (x) 
direction. 


MPl 


Number of grid nodes in radial (y) 
direction. 


NPl 


Number of grid nodes in tangential (z) 
direction. 


IPLAX 


01 For plane geometry; 

02 For axisymmetric geometry. 


MODEL 


01 For laminar viscosity; 

02 For k-€ viscosity model. 


MODER 


01 For kinetic controlled combustion; 

02 for kinetic and turbulence con- 
trolled combustion. 


I PAR 


01 For absolute pressure; 

02 For relative pressure. 


ITRAD 


01 No radiation; 


02 With radiation; radiation properties 
specified ; 

03 With radiation; radiation properties 
calculated. 


4 


lU 8(I2,8X) 


MODEN 


INTAPE 


01 Input units are international 
system {i.e.» meters, kilograms, 
degrees kelvin, newtons, joules, 
radians, seconds or combinations 
thereof) ; 

02 User selected input units. 

01 Density is fixed at the value of 
"Den" on Card Set 19; 

02 Density calculated from perfect gas 
law. 

00 Initial conditions not printed; 

08 Initial conditions printed. 
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Card 


Set 

Variable 

IDW 

IRES 

Pormat 

Description 

00 Inner boundary Is axis of symmetry* 

01 Inner boundary is wall. 

00 This is a new case; 

01 This is a restart of previous case. 

5 

ISOLVE 

8(12, 8X) 

An 01 in proper field indicates that 
this particular variable will be solved 
for; an 00 indicates that it will not 
be. Order of variables* u, v, w, p' , 

K n, si, 

s2, 14*0 (14 species solved by CREK) . 
Rx, Ry, Rz. 

6 

ICTDMA 

8(12, 8X) 

Indicates the number of "sweeps" made 
in the solve routine for each variable. 
Order of variables as in Card Set 5. 

7 

I PRINT 

8(12, 8X) 

An 01 indicates that this variable will 
be printed, an 00 indicates that it 
will not be. Order of variables as in 
Card Set 1. 

8 

RELAX 

8B10.4 

Relaxation parameters for each vari- 
able. Order of variables as in Card Set 
5. In addition, pressure, density, 
effective viscosity at end of the set. 

9 

PR 

8E10.4 

Laminar Pcandtl numbers for each vari- 
able, Order of variables as in Card 
Set 5. 

10 

PREP 

8E10.4 

Turbulent Prandtl numbers for each 
variable. Order of variables as in 
Card Set 5. 

U 

X 

8E10.4 

X-coordinates (LPl values). 

12 

RI 

Y 

8E10.4 

Radius of inner boundary. 

Y-coordinatea as measured from inner 
boundary (MPl-1) values. Since Y(l) 
la always 00, ri is read in its place. 

13 

2 

8E10.4 

Z-coordinates (NPl values). 

14 

IWEI 

8(12, 8X) 

I-node at which upstream inclined wall 
ends. 


JWIO 

See Fig. 
B~1 

J-node at which upstream outer inclined 
wall starts. 
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Card 


Set 

Variable 

Format 

Description 


IWEO 


I-node at which downstream inclined 
wall starts. 


JWOO 


J-node at which downstream outer 
inclined wall ends. 

15 

IHLI 

8(];2,8X) 

Starting I-nodes of the calculation 
domain when inclined wall 1s present. 
(Skip if IKEI - 2). 

16 

JWLO 

8(12, 8X) 

Ending J-nodes of the calculation 
domain at upstream outer inclined wall. 
(Skip if IWBl « 2). 

17 

IWLO 

8(12, 8X) 

Ending I-nodes of the calculation 
domain when inclined wall is present. 
(Skip if IWEO « L). 

18 

JWLO 

8(12, 8X) 

Ending J-nodes of the calculation 
domain at downstream outer inclined 




wall. (Skip if IWEO « L) . 

19 

PRESS 

8E10.4 

System pressure. 


DEN 


The value of density if option MODEN * 
01 is selected. 


ABSOR 


Absorption coefficient in radiation 
model (if ITRAD = 2). 


SCATR 


Scattering coefficient in radiation 
model (if ITRAD " 2). 


AKFAC 


Internally defined turbulent kinetic 
energies are ARFAC time the appropriate 
velocity squared. 


ALPAC 


internally defined turbulent length 
scales are ALFAC time the appropriate 
distance. 

20 

CXX 

8E10.4 

Carbon atoms in fuel modecule. 


HYY 


Hydrogen atoms in fuel molecule. 


HPU 


Heat of formation of fuel. 


FUMCO 


Initial value assigned to Mco* 

21 

PREXPl 

8B10.4 

Preexponent of 1st reaction. 


ARCONl 


Activation energy divided by gas 
constant of 1st reaction (E/R) . 


CRl 


Constant in turbulence controlled 


reaction rate of lat reaction. 
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Card 


Set 

Variable 

Format 

Description 


PREXP2 


Pre-exponent of 2nd reaction. 


ARGON 2 


Activation energy divided by gas 
constant of 2nd reaction (B/R) . 


CR2 


Constant in turbulence controlled 
reaction rate tor 2nd reaction. 

22 

PREXP3 

8B10.4 

Pro-exponent of 3rd reaction. 


ARGON 3 


Activation energy divided by gas 
constant of 3rd reaction (B/R) . 


CR3 


Constant in turbulence controlled 
reaction rate for 3rd reaction. 


PREXP4 


Pre-exponent of 4th reaction. 


ARGON 4 


Activation energy divided by gas 
constant of 4th reaction (B/R) 


CR4 


Constant in turbulence controlled 
reaction rate for 4th reaction 

23 

AAl 

8E10.4 

Exponent on species concentration 


BBl 


in the reaction rate for 1st 


CCl 


reaction. 


AA2 


Exponent on species concentration 


BB2 


in the reaction rate for 2nd 


CC2 


reaction. 

24 

AA3 

8E10.4 

Exponent on species concentration 


BB3 


in the reaction rate for 3rd 


CC3 


reaction. 


AA4 


Exponent on species concentration 


BB4 


in the reaction rate for 4th 


CC4 


reaction. 

25 

Cl 

8E10.4 

Turbulence model constant. 


C2 


Turbulence model constant. 


CD 


Turbulence model constant. 


AMU 


The value of the viscosity if option 
MODEL " 01 is specified. Also the 




laminar viscosity used in the "wall 
functions" . 


ERROR 


Program will terminate if total error 
in mass becomes less than this value. 


TCYLW 


Temperature of cylindrical portion of 
combustor and of dome. 


TLIP 


Temperature of cooling slot lip. 

26 

LASTEP 

2(13, 7X) , 

Maximum number of iterations. 


I JUMP 

6(12, 8X) 

Number of iterations between array 
printout. 
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Card 


Set 

Var iable 

Format 

Descr iptlon 


JSWl 


J-node at start of dome inlet. 


JSW2 


J-node at end of dome inlet. 


NUINJ 


Number of axial injection points 
(cooling slots) . 


NVINJ 


Number of radial Injection points. 

27 

USW 

8B10.4 

Axial velocity of dome inlet. 


VSW 


Radial velocity of dome inlet. 


SVfNO 


Ratio of tangential to axial velocity 
at dome inlet. 


AFSW 


Flow rate of fuel and air through 
dome inlet. 


FSH 


Flow rate of fuel through dome inlet. 


TSW 


Temperature at dome inlet. 

28 

NFNZ 

2(12, 8X) , 

00 No liquid fuel nozzle; 


ISPRAY 

6E10.4 

01 Liquid fuel nozzle present. 

Droplet evaporation routine is called 




every ISPRAY iterations. 


TFUEL 


Initial temperature of liquid fuel. 

29 

XO 

8E10.4 

X-location of origin of fuel nozzle 
spray. 


YO 


Y-location of origin of fuel nozzle 
spray. 


ZO 


Z-location of origin of fuel nozzle 
spray 


ALFA 


Nozzle cone angle. 


BETA 


Nozzle back angle. 


DELTA 


Nozzle down angle. 


THETAl 


Initial spray cone segment angle. 


THETA2 


Final spray cone segment angle. 


RNSL 


Number of spray cone rays. 


WFF 


Fuel flow rate. 


SMD 


Sauter mean diameter. 


VFUEL 


Initial fuel droplet velocity. 


RFUEL 


Radius of fuel nozzle. 
(Skip Set 29 if NFNZ«0) 




Skip Sets 30"35, if NUINJ-0. 

30 

lUINJ 

8 (12, 8X) 

I node location of cooling slots 

31 

JUINJ 

8 (12, 8X) 

J node location of cooling slots. 

32 

UINJ 

8E10.4 

Cooling slot axial velocity. 

33 

WUINJ 

8E10.4 

Cooling slot tangential velocity. 
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Card 


Set 

Var lable 

Format 

Deacr Ipt ion 

34 

AUINJ 

8E10.4 

Cooling slot mass flow rate. 

35 

TUINJ 

8E10.4 

Cooling slot temperature. 




Skip Seta 36-43, If NVINJ-0. 

36 

IVINJ 

8(12, 8X) 

I node location of radial injection. 

37 

JVINJ 

8 (12, 8X) 

J node location of radial injection 

38 

KVINJ 

8(12, 8X) 

K node location of radial injection. 

39 

VINJ 

8E10.4 

Radial injection velocity. 

40 

EVINJ 

8B10.4 

Radial injection turbulent kinetic 
energy. 

4X 

DVINJ 

8E10.4 

Radial injection turbulence length 
scale. 

42 

AVINJ 

8E10.4 

Radial injection mass flow rate. 

43 

TVINJ 

8E10.4 

Radial injection temperature. 

44 

NSOOT 
I SOOT 

MPART 

8(12, 8X) 

■0, SOOT calculations not performed; 
=1, SOOT calculations performed, 
soot calculation started after ERROR 
falls to SSOOT or after ISOOT number 
of iterations. 

Number of soot particle sizes. 




Sip Sets 45-48 if NSOOT=0. 

45 

SSOOT 

8E10.4 

See ISOOT. 


AO 


Constant Sq in soot nuclei formation 
rate, equation (6). 


ARCONN 


Activation energy divided by gas 
constant in soot nucleus formation 
rate, equation (6). 


AAA 


Constant a in soot formation rate, 
equation (8). 


BBB 


Constant b in soot formation rate, 
equation (8). 
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Card 



Description 

Set 

Variable 

Fermat 


FMG 


Constant (f-g) in soot nucleus 
formation rate, equation (7). 


GO 


Constant go in soot nucleus formation 
rate, equation (7). 


RHOP 


Particle density. 

46 

PREXPS 

8B10.4 

Pre-exponent in soot oxidation rate, 
equation (11). 


ARGONS 


Activation energy divided by gas 
constant in soot oxidation rate. 




equation (11) . 


ALPHA 


Temperature exponent in soot oxidation 
rate, equation (11) . 


AAS 


Exponent on fuel concentration in soot 
oxidation rate, equation (11) . 


BBS 


Exponent on oxygen concentration in 
soot oxidation rate, equation (11). 


DHR 


Heat of fuel combustion reaction. 


CINCP 


Incipient carbon/oxygen ritio for 
soot formation. 


TINCP 


soot calculation bypassed if 
temperature 5>TINCP. 

47 

OPART 

8E10.4 

soot particle diameters (in microns). 

48 

FRACP 

8B10.4 

Relative rates of formation of soot 
particle sizes. 

49 

I RAD 

12, 8X, 

Radiation calculation started after 


SRAD 

E10.4 

ERROR falls to SRAD or after IRAD 
number of iterations. 

(Skip if ITRAD=1). 

50 

NNOX 

3(12, 8X) , 

■0 NOx calculations not performed; 
*1 NOx calculations performed. 


INOX 

2E10.4 

NOx calculations started after ERROR 
falls to SNOX or after INOX number of 
iterations. 

Number of iterations of NOx solution at 
final iteration of flow solution. 


ITNOX 


SNOX 


See INOX. 


TNOX 


NOx calculation bypassed if temperature 




■ TNOX. 

After 

these 50 

card sets. 

the input to the chemical kinetics pro- 

g ran> 

CREK must 

be provided 

, This is described below in Tables S-l, 


B"2 and B-'3. 
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TABLE B-1. ELEMENTS INPUT CARDS. 


OWiGINAt PAGE IS 
OF POOR QUALITY 


Order 

Contents 

Format 

Card 

Columns 

First 

ELEMENTS 

3A4 

1 to 8 

Any 

One card for each distinct 
element present in the chemical 
system. Each card contains: 

1) Atomic symbol of element — 
must agree with that used 
in THERM0 data. 

2) Atomic weight of the element 

A2 

P10.6 

1 to 2 
10 to 19 

Last 

3) Values of oxidation state 
of the element (positive, 
negative or zero) . 

Blank Card 

F10.6 

20 to 29 


1 2 3 4 S 6 7 8 9 10 11 12 13 14 IS 16 


, 

,aBBMr,«^aa»^t\aaa 

aaai^^i^isiaaBa1i>*ii 

n^jaBaaBaa^Kji 


II^BI 


lltOkYL 

niai 


ACTUAL WALL 


SIMULATED WALL 


JWLO » 9,9,12,12, 
16,16.16,19 

IWEQ « 11 

JWOO * 11 

IWLO * 11,11,12,12,13, 

13, 14, 14, 14 

JWLO * 19,18,16,14,11,11 


Ficjure B-1. Definitiona of Inclined Wall Indices. 















TABLE B-2, THERN0 INPUT CARDS 


Order 


Contents 

Format 

Card 

Columns 

First 

THERM0 

3A4 

1 to 6 

Any 

Sets of four cards in seauence for 
each species in the chemical system. 
The card formats for each set are» 
in order: 



First 
in set 

1) 

2) 

3) 

4) 

5) 

6) 

Molecular symbol or name of 

species 

Date 

Atomic Symbols and formula 
Phase (gas only# letter G) 
Temperature range# deg K 
Integer 1 

3A4 

4(A2^,V3.0) 

A1 

2F10.3 

115 

1 to 12 

19 to 24 
25 to 44 
45 

46 to 65 
80 

Second 
in set 

1) 

Coefficients (z^# 1“1#5) for 
upper temperature range. 

See Note A. 

5BI5.8 

1 to 75 


2) 

Integer 2 

15 

80 

Third 
in set 

1) 

Coefficients zs and zy for 
upper temperature range# and 
Z3 for lower. See Note A. 

5E15.8 

1 to 75 


2) 

Integer 3 

15 

80 

Fourth 
in set 

1) 

Coefficients (zi# i*4#7) for 
low temperature interval. 

See Note A. 

4E15.8 

1 to 60 


2) 

Integer 4 

120 

80 

Last 

Blank Card 




Note A: The coefficients (zi, i-1,7) are those which appear 

in the polynominal expression for the constant pres- 
sure specific heat. 
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TABLE B-3. MECHANISM INPUT CARDS. 


Order 

First 

Any 


Last 


Contents , 

mechanism 

One card for each distinct forward 
(or optionally, reverse) reaction 
step In the mechanism spec If lea. 

Each card contains: 

1) Molecular symbols of up to three 
reactant species. See Note A. 

2) Molecular symbols of up to three 
product species. See Note A. 

See Notes B and E. 


Format 

3A4 


3) Exponent Bj, 

4) Exponent Nj. See Note B 

5) Activation temperature T^, deg K. 
See Notes B and E. 

6) O ptions : , , . „ 

for forward reactions, date or 

b) for^reverse reactions, REVERSE. 
See Note C. 

for global oxidative pyrolysis 
of hydrocarbon fuels, GLOBAL. 

See Note D. 

d) for rate data In cgs units, CGo. 
See Note E. 

Blank Card 


3(2A4) 

3(2A4) 

P8.3 

F8.3 

f8.3 


2A4 

2A4 

2A4 


Card 

Columns 


1 to 9 


1 to 24 

25 to 48 
49 to 56 
57 to 64 

65 to 72 

73 to 80 
73 to 79 

73 to 78 





NOTES 

A. 

B. 


symbols must be idebtloel to those ueeO In THKRM0 date oatda. 
Arus»>d in modified Arrhenius expression 
B^ N^ 


10 3 exp (-Tj/T) , with units 

for blmolecular reactions, and 

■ ■ w 

kg-mole"^.""^ for termolecular reactions. 


T , —1 ”1 

kg -mole s 


It BKVERSE is fo^UoL" iSutely'^the 

:;ird wU^datl tor the associated forward reaction, and must 

be in name unitP. 
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TABLE B-3. MECHANISM INPUT CARDS (Contd.). 

D. All GLOBAL cards must precede other cards In MECHANISM 
data deck. 

E. If CGS Is punched in Columns 73-75, Bj must correspond 
to cm3 gniol“l s”l or cm® gmol-2 g-l, and Tj must be the 
activation energy, kcal/gmol. 
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APPENDIX C 

LIST OP FORTRAN VARIABLES 


In this appendix a description of 
the Fortran variables is provided. 
Table C-1 contains the variables in 
the 3-D Combustor Program and Table 
C-2 contains the variables in the 
chemical kinetics program CREK. 


TA6LF C»1 

LIST OF FORTRAN VARIABLES IN 3-0 CONBUSTOR RRQGRAN 


FORTRAN SUBROUTINE DEFINITION 

VARIABLE VHERE 

OFFINEO OR 
USED OFTEN 

4«***4f ♦FAFF 


A 

STRAO 

COEFFICIENT IN TDNA SOLUTION. 

AAA 

AUXtNAIN 

CONSTANT IN SOOT FORHATION (SEE INRUT). 

A AS 

auk»nain 

EXPONENT ON FUEL CONCENTRATION IN SOOT OXIDATION 
RATE (SEE INRUTl.t 

AAl 

AUX*NA1N 

INIT 

EXPONENT ON SPECIES CONCENTRATION IN FIRST STEP 
OF HYDROCARBON OXIDATION SCNENE. 

AA2 

AUX>NAIN 

INIT 

EXPONENT ON SPECIES CONCENTRATION IN SECOND STEP 
OF HYDROCARBON OXIDATION SCHENE. 

AA3 

AUX>NA1N 

INIT 

EXPONENT ON SPECIES CONCENTRATION IN THIRD STEP 
OF HYDROCARBON OXIDATION SCNENE. 

AAF 

AUV*NAIN 

INIT 

EXPONENT ON SPECIES CONCENTRATION IN FOURTH STEP 
OF HYDROCARBON OXIDATION SCHEME. 

ABSOR 

••AIN 

INIT 

AUXRAO 

ABSORPTION COEFFICIENT (IF ITPAO-21. 

ABSR 

INIT 

AUX 

AUXRAO 

ARRAY TO STORE ABSORPTION COEFFICIENT. 

aloef 

AUXtOATA 

COEFFICIENTS TO LIMIT TFNPERATURE TO ACCOUNT 
FOR OISSOCIATIDN.i 

ACONO 

SPRAY 

COEFFICIENT IN THERNAL CONDUCTIVITY CALCULATION. 

AE*»1 

INIT 

EXPONENT ON SPECIES CONCENTRATION IN FIRST STEP 
OF HYOROCARBOH OXIDATION SCH£NE(» AAXI. 

AEXP2 

INIT 

EXPONENT ON SPECIES CONCENTRATION IN SECOND STEP 
OF HYDROCARBON OXIDATION SCHENE(»AA2t. 

AEXF3 

INIT 

EXPONENT ON SPECIES CONCENTRATION IN THIRD STEP 
OF HTDROCARBON OKIOATION SCHEnE(-AA3). 

ArXPA 

IWIT 

EXPONfNT ON SPECIES CONCENTRATION IN FOURTH STEP 
OF HYDROCARBON OXIDATION SCHEME ( -AAA » . 

AF^U 

•■AIN 

INIT 

A1R*FUEL FLOV THROUGH DONE INLET. 
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TABLE C-1 ICONTD.) 


*******¥^** ****** ***************************************************** ******** 
fortran SI'BRQUTIME DEFINITION 

VARIABLE WHERE 

DEFINER OR 
USED OFTEN 

****************************************************************************** 


AK 

DATA 

ALLNQD 

VON KARNAN CONSTANT* 

ARAfAKB 

AUT 

RATE CONSTANTS IN SOOT HXlOATION EXPRESS ION. 

AKFAC 

FAIN 

INIT 

ALLNOD 

INTERNALLY DEFINED TURBULENT KINETIC ENERGIES 
APE AKFAC TINES THE APPROPRIATE VELOCITY SQUARED. 

AKK»AKT 

AilX 

RATE CONSTANTS IN SOOT OVtDATtON EXPRESSION. 

AK7 

AUX 

RATE CONSTANT IN SOOT OXIDATION EXPRESSION. 

AL 

INIT 

TURBULENCE LENGTH SCALE. 

ALFA 

t*AIN 

5PRAV 

NQ77LE CONE ANGLE. 

ALFAC 

"AIN 

INIT 

ALLHOO 

INTERNALLY DEFINED TURBULENT LENGTH SCALES ARE 
ALFAC TINES THE APPROPRIATE DISTANCE. 

ALIN 

INIT 

INLET turbulence LENGTH SCALE. 

alnght 

INIT 

LENGTH Of CONRUSTOR. 

ALRHA 

AUX*NAIN 

TfNPEPATURE EXPONENT IN SOOT OXIDATION RATE 
(SFE INPUT!. 

alphas 

AtlTRAO 

ABSORPTION COEFFICIENT. 

ALV» ALT'" 

TIRIOE 

CONVECTION FLUX IN X DIRECTION. 

AL»P» AL»l 

S TP I Of 

CONVECTION FLUX IN X OIRECTfON. 

ALT»ftLY'" 

STPIO0 

CONVECTION FLUX IN Y DIRECTION. 

Al.rP,ALYl 

FTRIOt 

CONVECTION FLUX IN Y DIRECTION. 

AL?» ALTH 

'TRIOE 

CONVfCTION FLUX IN t DIRECTION. 

AL7P. AL71 

"TPIOP 

CONVFCTinN FLUX IN Z DIRECTION. 

ftMAST 

INH 

TOTAL AIR FLOW RATE. 

A«T 

«‘r« »Y 

rUFt cVAPORATION RATF for one TInF STE*. 


“AIN 

»((y 

.* 1 L H no 

IA>"|NaP VISCOSITY «SFf INPUT). 


r,'i 

ORlGirj/AL fYiCT fs 
OF POUR QUALITY 


TAHE C*l (CONTO.) 


*******^^k****¥***^**f ******************************** ***^****^***** *********** 

FnHTI>AN StiKpqilTlNE OEPtNITION 

VAkTABLE WHERE 

DEFINED OR 
USED OFTEN 

^^^tt*******************************************************************^*****‘ 


AND 

AUX 

SOOT NUCLEUS FORNATIQN RATE AT HE AN TENPERATURE. 

A'4QO 

AUX 

SQOT NUCLEUS FORNATIQN RATE IN FLUID SURR0UND1N6 
FINE STRUCTURES* 

ANOSTR 

AUX 

SOOT NUCLEUS FORNATIQN RATE IN FINE STRUCTURES* 

ANUC 

ALL 

SOOT NUCLEUS CONCENTRATION. 

AQ 

AUX»NAIN 

CONSTANT IN SOOT NUCLEUS FORNATIQN RATE CSEE INPUTt. 

AP 

SOLVE 

COEFFICIENT IN TDNA SOLUTION. 

APR 

SOLVE 

CafFFIClENT IN CYCLIC TDNA SOLUTION* 

ARCONN 

AUXyNAlN 

ACTIVATION ENERGY DIVIDED SY GAS CONSTANT IN SOOT 
NUCLEUS FORNATIQN RATE ISEE INPUTI* 

ARGONS 

AUXfNAIH 

ACTIVATION ENERGY DIVIDED BY GAS CONSTANT IN SOOT 
OXIDATION RATE (SEE INPUT). 

ARCQNl 

A11X»NA1N 

IKIT 

ACTIVATION ENERGY IN FIRST STEP OF HYOROCARRON OXIDATION 
SCNFNE* DIVIDED BY GAS CONSTANT* 

ARCPN2 

AUXfNAIN 

INTT 

ACTIVATION ENERGY IN SECOND STEP OF HYDROCARBON OVIOATION 
SCHENE* DIVIDED BY GAS CONSTANT* 

ARCON3 

AUKtNAIN 

INIT 

ACTIVATION energy IN THIRD STEP OF HYDROCARBON OXIDATION 
SCHENE* DIVIDED BY GAS CONSTANT* 

ARC0N4 

aux»nain 

INIT 

ACTIVATION ENERGY IN FOURTH STEP OF HYDROCARBON OXIDATION 
SCHENE* DIVIDED BY GAS CONSTANT. 

AREA 

ALLNOD 

STRIDE 

AREA OF CONTROL VOLUNE SURFACE* 

ARE AT 

AUX 

SQOT PARTICLE SURFACE AREA. 

ARC 

AUX 

TENPORARY USAGE* 

ARO 

SRRAY 

SOUARE OF DROPLET DIANETER* 

ARRHf N 

AUX 

ARRHENIUS RFACTIQN RATE. 

AS 

SPRAT 

DROPLET SURFACE AREA* 

ASH 

AU**OD 

ABSOLUTE OF CONTINUITY ERROR. 

ASH" 

f RFK 

SEE TABLE C'-a. 
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TARLE C-l tCONTO.I 


FORTRAN SIMIftOUnNE OEFZNTTtON 

VARIARiE WHFRE 

OFFINFO OR 
USED OFTEN 


ASN 

INIT 

FLQM RATE OF AIR THR0U6H OONE 

INLET. 

1 

ASWRLR 

INIT 

DONE INLET AREA. 



AT 

SPRAY 

QUANTITY USED IN THERNAL CONDUCTIVITY CALCULATION. 

AUINJ 

PAIN 

ALLNOD 

NASS FLON rate THROUGH FILN COOLING 

SLOT. 

AVINJ 

PAIN 

ALLPOO 

NASS Finv RATE THROUGH DILUTION HOLES. 

AXN 

STRIDE 

5TRAD 

ALLNOn 

SOLVE 

FINITE-DIFFERENCE COEFFICIENT 

IN X- 

DIRECTION. 

AXKK 

SOLVE 

finite-difference COEFFICIENT 
USED IN CYCLIC TONA. 

IN X- 

DIRECTION. 

AXP 

STRIDE 

STRAO 

ALLNOO 

SOLVE 

FINITE-DIFFERENCE COEFFICIENT 

IN XA 

DIRECTION. 

AXFK 

SOLVE 

FINITE-DIFFERENCE COEFFICIENT 
USED IN CYCLIC TDNA. 

IN Xa 

DIRECTION. 

AV« 

STRIDE 

STRAO 

ALLNOO 

^OLVE 

FINITE-DIFFERENCE COEFFICIENT 

IN Y- 

DIRECTION. 

ATNK 

SOLVF 

FINITE-DIFFERENCE COEFFICIENT 
USED IN CYCLIC TDNA. 

IN Y- 

DIRECTION. 

AYR 

STRIDE 
STF AD 
ALLNOO 
^OLVE 

FINITI-OIFFEREHCE COEFFICIENT 

IN YA 

DIRECTION. 

AYPK 

«OLVE 

FINITf-OlFFFRfNCE COEFFICIENT 
■ ISE<> IN CYCLIC TDNA. 

IN YA 

DIRECTION. 

AZ« 

STRIDE 

STPAO 

ALLNOD 

‘‘OLVf 

finite-oiffercncf coefficient 

IN I- 

dtrfction. 


Uh.j:.:';\‘, h': :•* 

OF P0f,n; q:'A' !i y 


02 


TABLE C-1 JCOMTO.) 


♦ ♦♦♦♦ ♦♦ 4 * 

FDATRAN SliBRQUTlNF DEFINITION 

VARIABLE WNERE 

0» FINED OR 
USED OFTEN 

♦♦♦♦♦♦4*»*A**»»***f#*4**»***f*4**444A**A***44444444A4*****t*^4*****»»**444*444. 


AZNK 

<rjLV£ 

FINITE-DIFFERENCE COEFFICIENT IN Z- DIRECTION* 
USED IN CYCLIC TDNA. 

AZR 

STRIDE 

STRAD 

ALLBOO 

SOLVE 

finite-difference COEFFICIENT IN If DIRECTION. 

AZRK 

SOLVE 

FINITE-DIFFERENCE COEFFICIENT IN Zf DIRECTION* 
USED IN CYCLIC TDNA, 

A1-A6 

A'lX 

TENPORARY USAGE. 

AA 

INIT 

TENPQRARY USAGE OF FLOW AREA. 

8 

STRAO 

COEFFICIENT IN TDNA SOLUTION. 

BBB 

AUXtNAlN 

constant In SOOT FORNATION (SEE INROT). 

BBS 

aox»bain 

INIT 

EXPONENT ON Oa CONCENTRATION IN SOOT OXIDATION 
RATE (SEE INPUT). 

BBl 

AUXfNAiN 

INIT 

EXPONENT ON SPECIES CONCENTRATIO^< IN FIRST STEP 
OF HYDROCARBON OXIDATION SCHENE, 

BB2 

AUX« NAIN 
INIT 

exponent on SPECIES CONCENTRATION IN SECOND STEP 
OF KYOROCAPBON OXIDATION SCHENE. 

P.«3 

AI)X»NAIN 

INIT 

exponent on species CONCENTRATION IN THIRD STEP 
OF HVDRnCAPBON OXIDATION SCHENE. 

BBA 

AUXtNAIN 

IMT 

EXPONENT ON SPECIES CONCENTRATION IN FOURTH STEP 
OF HYDROCARBON OXIDATION SCHENE. 

PCQNO 

SPRAY 

COEFFICIENT IN THERNAL CONDUCTIVITY CALCULATION, 

BEE 

SPRAY 

DRIVING FORCE FOR NASS TRANSFER, 

BETA 

PAIN 

SPRAY 

NOZILE BACK ANGLE. 

BE»n 

INIT 

cXPONFNT ON SPECIES CONCENTRATION JN fjrst STFP 
OF HYDROCARBON OXIDATION SC HERE ( -BBl ) * 

8£»PZ 

INIT 

exponent on SPECIES CONCENTRATION IN SECOND STEP 
OF HYDROCARBON OXIDATION SCHENE (• BBZ ) , 

RE»P3 

INIT 

EXPQNfMT ON SPECIES CONCENTRATION IN THIRD STEP 
OF HYDROCARBON OXIDATION SC HENE (^SRS ) . 


Oh:cr 

or t r 


•< 


- / 
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rORTf>AN SURAOUriNF DEFINITION 

VARIARLf UMfRE 

niFlNFO OR 
USID OFTEN 

* t ************************************************* *******^***** ************* 


REKPA 

INIT 

EXPONENT ON SPECIES CONCENTRATION IN FOURTH STEP 
OF HYOROCARRON OXIDATION SCHENEt-BRAI* 

RK 

SOLVE 

TENPORARY USAGE. 

BA 

«OLVE 

COEFFICIENT IN TONA SOLUTION, 

RPB 

SOLVE 

COEFFICIENT IN CYCLIC TONA SOLUTION. 

OT 

SPRAY 

QUANTITY USED IN THERNAL CONDUCTIVITY CALCULATION. 

CAN Cl 

NAIN 

CONSTANT TO CONVERT UNITS ON ANGLES. 

CARR 

AIIV 

NASS FRACTION OF ELENFNTAL CARRON. 

cc; 

AUVfNAIN 

INIT 

EXPONENT ON SPECIFS CONCENTRATION IN FIRST STEP 
OF NYOROCARRON OXIDATION SCNEHE. 

CC2 

AUX*NA1N 

INIT 

EXPONENT ON SPECIES CONCENTRATION IN SECOND STEP 
OF HYOROCARRON OXIDATION SCHEFE. 

CC3 

AUX»NAIN 

INIT 

EXPONENT ON SPECIES CONCENTRATION IN THIRD STEP 
OF HYPROCAPRON OXIDATION SCMENE. 

CCA 

AUXtNAIN 

INIT 

EXPONENT ON SPECIES CONCENTRATION IN FOURTH STEP 
OF HYDROCARBON OXIDATION SCHEME. 

CO 

AUX 

ALLNOO 

CONSTANT IN rURRULENCE NGOEL. 

C0S»C01 

SPRAY 

DROPLET DRAG COEFFICIENT.' 

CE‘»Ol 

INIT 

EOOY-RREAK-UP CDNSTANV FOR FIRST STEP 
OF HYORQCARRON OXIDATION SCHEME . 

CER02 

INIT 

EDOY-R»EAR**ll" CONSTANT FOR SECOND STEP 
OF HYDRQCARRON OXIDATION SCHFriE. 

CEA1I3 

INIT 

EOOY-RREAK-UP CONSTANT FOR THIRD STEP 
OF HYDRQCAPROM OXIDATION SCHEME. 

CERIH 

INIT 

EOOY->*REAK-UR CONSTANT FOR FOURTH STEP 
OF HVOROCARR'IN QXIOATION SCHEME. 

CENFO 

PAIN 

CONSTANTS TO CONVERT UNITS ON LNtRf.Y, 

Cf »P1 

AMYtlNlT 

EXPONENT H SPECIES CPNCENTR All ON IN FIRST STE» 
Of HYPROCapROM OXIDATION SC Hf “E 1 "CCU « 


(»4 


ORIGINAL P/';:»“ 15 
OF POOR QLIA'.ITY 


TARLf C<>1 (CQNTO.I 


FORTPAM Sl'PPQUnNE DEFINITION 

VARIAHE WHERE 

OEflHIO PR 
tlSED OFTEN 


ce»P2 

AUKtiNiT 

EXPONENT ON SPECIES CONCENTRATION IN SECOND STEP 
OF HYDROCARBON OXIDATION SCHENEI*CC2). 

CEXP3 

AUXMNIT 

EXPONENT ON SPECIES CONCENTRATION IN THIRD STEP 
DF HYDROCARBON OXIDATION SCHENE (•CC3I, 

CERPA 

AUK* INIT 

EXPONENT ON SPECIES CPNCINf RATION IN FOURTH STEP 
OF HYDROCARBON OXIDATION SCHEHE(»CC4)* 

CFR 

Aumo 

AUK 

INIT 

SKIN friction COEFFICIENT. 

CINCP 

AUK*NAIN 

INCIPIENT CARBON20XYQEN RATIO FOR SOOT FORNATION, 

CK 

SOLVE 

TENPORARY USAGE. 

CUNf) 

RAIN 

CONSTANTS TO CONVEPT !|N!TS OH LENGTHS. 

CLFNV 

PAIN 

CONSTANTS TO CONVERT UNITS ON VELOCITIES. 

CNASS 

HAIN 

CONSTANTS TO CONVERT UNITS ON NASS, 

CNO 

OUTPUT 

NOK ENISStONS INDEX. 

CflNPl 

SPRAT 

thermal cqhouctivity of fuel vapors. 

CONS 

SPRAY 

TEMPORARY USAGE. 

CONS? 

AlIX 

TEMPORARY USAGE. 

CON? 

SPRAY 

FRACTION OF fuel EVAPORATED, 

COS A 

PPRAT 

COSINE OF HALF THE N02ILE CONE ANGLE* 

casR 

SPRAY 

COSINE OF N077LE BACK ANGLE. 

cnsD 

SPRAY 

COSINE OF NOZZLE DOWN ANGLE. 

COST 

SPRAY 

COSINF OF CURRENT SPRAY CONI SEGMENT ANGLE. 

CP 

AUK 

ALLNOD 

CONSTANT PRESSURE SPECIFIC HEAT. 

CPI 

INIT 

AUX 

CONSTANT PRESSURE SPECIFIC HEAT, 

CPLF 

SPRAY 

SPECIFIC HEAT OF LIDUID DROPLET, 


TARLF L'-'l (CnNT<>.t 


FORTRAN ^^^Ap^OUTINt OFFINITION 

VARIAALF WHFRE 

DfflMfft UR 
UStD UFTEM 


CPR 

AUX 

CONSTAHT PRESSURE SPECIFIC MEAT. 


CRRESS 


COMSTANTS TO CQN^fERT UNITS ON PRESSURE. 


CPSUM 

AUHiin 

AUX 

constant pressure specific HEAT OF GAS NIXTUPf, 

LPl 

«PRAT 

SPECIFIC MEAT* 


CRl 

AUXf'AAIN 

EOOr-flREAK-UP CONSTANT IN FIRST STEP 
OF HYORPCARRON OXIDATION SCHEME ( •CEBUl 1 , 


CP.2 

AUXflAIU 

EOOY"BR£AK..UP CONSTANT IN SECOND STEP OF 
Of HYDROCARBON OXIDATION SC HERE I "CERU? J * 


I.R3 

AtlX»1MN 

FOOY-BREAK-ilP CONSTANT IN THIRD STEP 
OF HYDROCARBON OXIDATION SC HENE I "Cf BUS! . 


CR^ 

AUX*1AXN 

EODY-BREAX.UP constant IN fOURT'I STEP 
OF hydrocarbon OXIDATION SC HEPE « -CEOUAI , 


CS“n 

OUTPUT 

SHORE ENISSIONS IMDF*. 


CTEHP 

PAIM 

CONSTANT TO CONVERT UNITS ON TE"" ERA TifPE , 


CX 

STRIOE 

TEMPORARY STORAGE FOR CONVECTlVf 'DIFFUSIVE 
y DIRECTION. 

Kl*« IN 

C XlUC XUP 

«tr iof 

TEMPORARY ST0RA6F FOR C'NVfiCTl/t 1 tU* IN * 

DTR'^CTION 

CX* 

INIT 

NUMBER OF CARBON ATOMS IN TF, FUFU 



AU* 

main 


CY 

STRIDE 

temporary ST'?S4(iE 
Y 01RECT5DN. 

FOR 

rOMV'.CTIVE/OIFFUSt VE 

FlU* IN 

CY» 


NUl U*EO. 




CYU»CYUP 

STRIDE 

rEMl'Pi-ARV S10RAGF 

ro* 

CONVECTlVr ftti* IN T 

nn»;CT lONo 

(7 

STRIDE 

TC-MPriPAIiV srnAGE 
7 BireCrKN, 

FffR 

CnvVF . >I‘'eADIFFUSIVE 

FLU* I‘' 

C 


NOT URtQ. 






TEMfORARY STORAGE 

FOR 

CONVECTIVE Fit,* IN 7 

OIREC'TON, 

(. 

NAIM 

COVST'^T ?N atPB'lLENCE 




ORIGINAL, (^AGr f*! 

Cf PO'.^;< q:jA! .TY 


TMLI C-^1 (CnNTO*l 


FQRTffAH ^i)»RQUriNE DERlNtTION 

VAftlARLE WHERF 

0FPIN6D OR 
IISEO OFTEN 

********¥¥******* ********^* *********************************** ******'*^*^*^***** 


ct 

AUXtiAiN 

CONSTANT IN TUROULENCE NOOEL. 

OANt; 

SPRAY 

OELTAIANfiLEt* 

DELTA 

SPRAY 

PAIN 

FUEL Nome OOHN ANGLE. 

OELTAT 

AUX 

TENPERATURE RISE.I 

DEN 

aux»nain 

DENSITY fSEE INPUT!. 

DENOH 

SOLVE 

TENPORARY USAGE. 

OENST 

AUX 

DENSITY. 

OEHSTY 

STRIDE 

DENSITY. 

DEVAF 

SRRAY 

FRACTION OF FUEL EVARORATEO IN ONE TINE STEP. 

DFAC 

PAIN 

STRIDE 

QUANTITY USED TO GRADUALLY INTRODUCE 
I DIRECTION DIFFUSION. 

DFTW 

TSOLVE 

DIFFERENTIAL DF NEAT TRANSFER N.R.T. TENPERATURE. 

PH» 

AUX*MAIN 

NEAT OF FUEL CONGUSTIDN REACTION. 

DIA 

SPRAY 

instantaneous droplet dianeter. 

DIAU 

SPRAY 

INITIAL ORQRLET DIANETER. 

OIST 

ALLNQO 

AUX 

STRIDE 

INTERNDCAL DISTANCE. 

01V6 

STRIDE 

ALLNOD 

NASS IPRALANCE AT A CONTROL VOLUNE. 

OK 

SOLVE 

TEPRORARY USAGE. 

DLl" 

SPRAY 

CONSTANT TO LIPIT TINE STER. 

OH 

«PRAY 

ORDRLET HASS.' 

onooT 

OUTPUT 

MASS FLOM RATE. 

OF 

<OLVI 

COEFFICIENT IN CYCLIC TDNA SOLUTION. 

OPART 

AUX>PAIN 

SOOT PARTICLE DIAMETERS. 
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ORIGINAL PAC'; ff? 
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FORTRAN SUBROUTINE DEFINITION 

VARIABLE WHERE 

OFFINED OR 
USED OFTEN 

OQCH TSOLVE HEAT TRANSFER COEFFICIENT. 

OORH TSnLVF DIFFERENTIAl OF RADIATION HEAT TRANSFER V.R.T. 

TEHPFRATURE. 

DRHOpR STRIDE PARTIAL DERIVATIVE OF DENSITY V.R.T. PRESSURE* ^ 

DSnCO AUX TFMRORARV USAAE IN CO SOURCE TERN. 

OSOFU AtlX TENPi/RART USAGE IN FUEL SOURCE TERN. 

DSDH AUX TENPORARY USAGE IN ENTHALPY SOURCE TERN. 

DSOOT PUTPUT TENPORARY USAGE. 

OSDSP AUX TEMPORARY USAGE IH CXHY-2 AND HE SOURCE TERNS. 

OSND SPRAY RATIO OF ORORLET DIANETER TO SND. 

DT STRIDE TINE INCRENENT. 

DTP «PRAr TENPERATURE RISE OF DRORIET. 

OTHFTA SPRAY ••IFFERFNCE BETWEEN INITIAL AND FINAL SRRAY 

CONE SEGNENT ANGLES. 

DTI SPRAY UNIT ON TINS STEP T1 AVOID NUNERICAL INSTABILITY. 

OTll-7 SRRAY UNITS ON TINE STE* TO AVOID NUNERICAL INSTABILITY. 

DU stride PRFSSURE-VEinClTY COEFFICIENT FOR U-VFLOCITY. 

SOLVE 

AUX 

OUOXr AUX PARTIAL DERIVATIVE OF U W.A.T. X AT I LOCATION. 

OUDXP AUX PARTIAL DFRIVATIVE OF U W.R.T. X AT I4l LOCATION. 

DUDYN AUX PARTIAL DERIVATIVE OF U V.R.T. Y AT I LOCATION. 

0U5YP AUX PARTIAL DERIVATIVE OF U V.R.T. Y AT !♦! LOCATION. 

OUDTP AUX PARTIAL DERIVATIVE OF U W.R.T. I AT I LOCATION. 

DUDTP AUX PARTIAL DERIVATIVE OF U W.R.T. I AT !♦! LOCATION, 

Olltnxj AUX PARTIAL DtRTVATTVF OF Ul W.R.T. xj, 

DV STRIDE FRESSU»E«>VEL0C1TY COEFFICIENT FOR V~VELOCITY. 

«PLVF 

AUX 


ORIUINAU PAL.C !.. 

or POOrV Ot /V ITY 


ORIGINAL PAGE ^ 
OF POOR QUAUTY 


TAKLE C-1 IC0NT0»t 


FQRTAAN SURRQUTtNE QEEINITION 

VARIABLE WHERE 

RfFINEO OR 
WSEO OFTEN 


OVOXN 

AUX 

DVDXP 

AUX 

DVDY 

AUX 

OVDYN 

AUX 

DVOYP 

AUX 

OVOZN 

AUX 

DVD IP 

AUX 

DVINJ 

INIT 

PAIN 

DW 

STRIDE 

SOLVE 

AUX 

ALLNOD 

OWDXN 

AUX 

OWDXP 

AUX 

DWDYN 

AUX 

DWDYP 

AUX 

OWDZN 

AU* 

OWDZP 

AUX 

DX 

AUX 

DX 

SPRAT 

DY 

INIT 

AUX 

OY 

SPRAY 

DI 

AUX 

IFIT 

02 

SPRAY 

E 

XLLNOD 

DATA 


RARilAI. OERtVATtVI Of V W.R.T. X AT A LOCATION. 

RARTIAL DERIVATIVE OF V W.R.T. X AT 4*1 LOCATION. 

VELOCITY ORAOIENT NEAR A WALL. 

PARTIAL DERIVATIVE Of V W.R.T. T AT J LOCATION. 

PARTIAL DERIVATIVE Of V W.R.T. T AT J»1 LOCATION. 

partial DERIVATIVE OF V W.R.T. I AT J LOCATION. 

PARTIAL DERIVATIVE O': V W.R.T. I AT LOCATION. 

RADIAL INiECTION TURRULENCE LENOTH SCALE. 

fre^sure-velocity coefficient for W-VELOCITY. 


PARTIAL DERIVATIVE Of W W.R.T. X AT R LOCATION.' 

PARTIAL DERIVATIVE QF W W.R.T. X AT K*i LOCATION. 

PARTIAL DERIVATIVE OF W W.R.T. Y AT X LOCATION. 

PARTIAL DERIVATIVE OF W W.R.T. Y AT Ktl LOCATION. 

PARTIAL DERIVATIVE Of W W.R.T. I AT K LOCATION. 

PARTIAL DERIVATIVE Of W W.R.T. I AT KPt LOCATION. 

INTERNODAL DISTANCE IN X DIRECTION. 

DISTANCE TRAVELED BY DROPLET IN X DIRECTION. 
INTERNflDAl DISTANCE IN Y DIRECTION. 

DISTANCE TRAVELED AY DROPLET IN Y DIRECTION. 
INTERNODAL DISTANCE IN t DIRECTION. 

DISTANCE TRAVELED BY DROPLET IN I DIRICTlON. 
CPNSTANT E IN LDD-LAW Of TNE NALL. 
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FORTMAN SI'BRQUTINC DEFINITION 

VARIAHE UNERE 

DEFINED CR 
USED OFTEN 


EDK 

STRIDE 

AUK 

OISSIRATION DIVIDED RV TURRUIENCE ENERGY* 

EORU 

STRIDE 

OISSIRATION DIVIDED RV TDRRUI.ENCE ENERGY AT 
NODE I*J»K* 

EDK2 

AUX 

DISSIFATIQN DIVIDED IT TDRRULENCE ENERGY SOUARED. 

EE 

SRRAY 

CONSTANT IN DROPLET SOILING POINT CALCUl ATION* 

ENDOT 

AUK 

RATE OF MASS TRANSFER SETWEEN FINE STRUCTURES AND 
SURROUNDING FLUID* 

ENOOTR 

AUK 

TEMPORARY USAGE* 

ENl 

INIT 

iUK 

♦SOLYE 

ALL*"}0 

•EMIStf/(2*0-EnlSM>* 

ENTSIN 

INlT 

INLET ENISSIVITT*' 

FntSR 

INIT 
All MOD 

GAS EMISSIVITY* 

EHITW 

ALLMDO 

INIT 

NALL ENISSIVITY* 

CN‘'1N 

AUK 

TEMPORARY USAGE. 

EMI' 

AUK 

NASS OF SOOT PARTICLE* 

EMFR 

AUK 

MASS FRACTION OF PRODUCTS. 

EMV 

STRIDE 

TOTAL CONVFCriVE AND DIFFUSIVE MASS INFLOW INTO 
A FINITE-DIFFERENCE CELL* SEE TASLE C-2* 

?M*I 

AUK 

MEAN SOOT PARTICLE CONCENTRATION, 

tN*nn 

AUK 

SOOT particle concentration IN FLUID SURROUNniwr. 
FINF STRUCTURES* 

ENNRHil 

AUK 

ENN DIVIDED SY GAS DENSITY* 

InNSTF 

AUK 

SOOT PARTICLE CONCENTRATION IN FINE STRUCTURES* 

END 

AUK 

SOOT NUCLEUS CONCENTRATION IN FLUID SURROUNOINr, 
FINE STRUCTURES* 


lOt) 


ORIGINAL PACr L'. 
Of POOR QUALITY 


T4RII C-l KONTO.) 


*t«.**f» 

FaMI>AN SUAFOUTINE 
VARIAALC where 


OEFlNITinN 


nfPiwEO n« 

USED OFTEN 




*♦4 


ENRHQ 

A HR 

MEAN SOOT NUCLEUS CONCENTRATION OIVtOEO BY «AS 
DENSITY* 

ENSTE 

AUK 

SOOT NUCLEUS CONCENTRATION IH FINE STRUCTURES. 

ENSTWl 

AHX 

TEMRORARV usage* 

INSTR2 

aiir 

TERROR ART USAGE* 

EF 

«OLVE 

COEFFICIENT IN CYCLIC TOMA SOLUTION* 

FR 

CREH 

EQUIVALENCE RATIO* SEE TABLE C-E* 

ERROR 

HAIN 

RROGRAM WILL TERMINATE IF TOTAL ERROR IN MASS 
BECOMES LESS THAN THIS VALUE. 

ERl 

IMIT 

ArTttfiYfON ENFRGY FOR THE FIRST STER OF 
MYCtnCARBON OYIOATIOM SCHEME » OIVIOFP AY GAS CONSTANT 

|•ARC0N1). 

ER2 

INIT 

ACTIVATION ENFRGY FOR THE SECOND STER OF 
5ym!Ja5aON OXIDATION SCHEME.OIVlOEO AT GAS CONSTANT 
( -ARCONZI* 

FR3 

INIT 

ACTiVATtOM ENERGY FOR THE THIRD STER OF 

hydrocarbon 3XI0ATI0N SCHEME, DIVIDED BY GAS CONSTANT 

{•ARCONSt. 

ERA 

tNiT 

ACTIVATION ENERGY FOR THE FOURTH STE» OF 
hydrocarbon IXIOATIOH SCHfNE, DIVIDED BY GAS CONSTAN 

( aARCONA)* 

ET 

SPRAY 

VARIABLE IN ORORLET BOILING POINT CALCULATION, 

IVAP 

SPRAY 

AU*»00 

STRIDE 

evaporation RATE OF LIQUID FUEL* 

fVAR«K« 

SPRAY 

IMTERRHASE MOHENTUN transfer in K^y*I DIRECTIONS. 

EVINJ 

INIT 

HAIN 

RADIAL INJECTION TURBULENCE ENERGY, 

tVAU 

ARRAY 

AUNOO 

ARRAY USED T1 STORE IMTERRHASE MQNENTUM TRANSFER* 

F 

AU 

ARRAY USED TO STORE DEPENDENT VARIABLES* 

FAC 

ARRAY 

tcmmokary usage* 
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FORTRAN SURRQUTIN6 OIFIHITIOM 

VARIARIE WHFRC 

DFFIHID OR 
USFO OFTEN 


FACE 

AIIKRAO 

TENRORARY USACE. 

FAV 

AUV 

AVERAGE RADIATION FLUX* 

FCH 

AU 

INTERNEOIATE HYDROCARBON CONCENTRATION. 

FOFU 


NOT USED. 

FEND 

50LV6 

QUANTITY USED IN CYCLIC TDNA. 

FEVAF 

$RRAY 

fraction of FUFL EVARORATED. 

FERtT 

!N1T 

UNAURHT FUEL NASS FRACTION. 

FH2 

ALL 

HYDROGEN NASS FRACTION. 

FK 

TNIT 

TNLET TURBULENCE KINETIC ENERGY. 

FNFU 


NOT USED. 

FLO 

INIT 

PLOW RATE AT EACH AXIAL STATION, 

FLOW 

OUTPUT 

NASS FLOW RATE. 

FLONtN 

INIT 

ALLNOO 

INLET NASS FLOW RATE. 

FLONOT 

ALLNOO 

FLOW RATE AT EXIT RLANE. 

Ft.PC02 

INIT 

AU* 

AURRAO 

COE NASS FRACTION. 

FIFF 

All* 

AUXRAP 

FNISSIVE ROWER. 

FLFM20 

INIT 

AU* 

AUKRAD 

H2Q NASS FRACTION. 

Fi,F*J2 

INIT 

AU* 

AUXRAO 

NR NASS FRACTION.) 

FIPOT 

INIT 

AU* 

AI^XRAO 

SPRAT 

OR NASS FRACTION.) 
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VARIAME HHfRF 

OfcFIHCO QR 

DEFIHITinN 


♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦»♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦**♦*♦♦♦*************’ 


FLRTI 

auk 

AUKAAO 

TENfERATURE* 


fLZP 

SOIVF 

F VALUE AT NODE LIP. 


FMA 


HOT USED. 


FNG 

AUX»1AIN 

constant IM SnOT nucleus FORNATION rate ISEE INPUT!. 


FMGF 

AUK 

TENP*'RARY USAGE. 


FQ 

CREK 

SEE TARLE C-E. 


FRACP 

AUK*1AIN 

RELATIVE RATES OF FORNATION OF SOOT PARTICLE SUES. 


FRACT 

SPRAV 

CUMULATIVE NASS FRACTION OF DROPLETS IN DIFFERENT 
SHE GROUPS. 


FS 

ALL 

ARRAY USED TO STORE SPECIES HASS FRACTIONS. 


FSLP 

STRIDE 

tenpqrary storage for fsilpt. 


FST 

IHIT 

STOICNIONETRIC VALUE OF NIKTURE FRACTION. 


FSTOIC 

INIT 

AUK 

STOICHIOMETRIC VALUE OF MIXTURE FRACTION. 


FSM 

TNIT 

PAIM 

FLOV RATE Of FUEL THROUGH DONE INLET. 

< 

FT« 

TSQLVE 

RAOIA-'VEaCONVECTIVE MEAT TRANSFER, 


FOARAT 

INlT 

fuel/aik ratio* 


FUR 

INIT 

AUK 

AUXRAn 

NASS fraction of rurnt fuel. 


FUEL 

INIT 

FUEL FLOV RATE AT EACH AXIAL STATION, 


FMf LF 

TNIT 

NASS FRACTION OF UNBURNT FUEL. 


FOFLI 

INIT 

N1«TURI FRACTION.! 


FUEL? 

INIT 

LtOUID FUEL FLOV RATE AT EACH AXIAL STATION* 


FU»*CP 

INIT 

PAIN 

kNITIAL FSTINaTE of CO HASS FRACTION, 




f- 

ft u 

V‘ 1-., r 



TAHC C-1 (CQNTO.t 


FaRTHAN SUBROUTINF OfFIMITfOM 

VARtABLE WHERE 

DEFINED OR 
USED OFTEN 

4^444 4 4444444 4 44******^+ 


FUHSN 

INIT 

FUEL/AIR RATIO AT DONE INLET* 



FUOX 

JNIT 

MIXTURE FRACTION AT EACH AXIAL STATION 

* 


fud«sh 

INIT 

MIXTURE FRACTION AT DONE INLET* 



FHT 

STRIDE 

MIXTURE FRACTION*) 



FUTOT 

INIT 

TOTAL fuel flow RATE* 



FX 

SPRAY 

DRAG FORCE ON DROPLET IN X DIRECTION. 



FXN 

ALL 

INTERPOLATION FACTOR FOR X- DIRECTION 

NODAL 

DISTANCES. 

FXR 

ALL 

interpolation factor for x« direction 

NODAL 

DISTANCES. 

FY 

SPRAY 

DRAG FORCE ON DROPLET IN Y DIRECTION, 



FYN 

ALL 

INTERPOLATION FACTOR FOR Y- DIRECTION 

NODAL 

DISTANCES 

FY(» 

ALL 

INTERPOLATION FACTOR FOR Y* DIRECTION 

NODAL 

DISTANCES 

FZ 

SPRAY 

DRAG FORCE ON DROPLET IN Z DIRECTION* 



FZN 

ALL 

INTERPOLATION FACTOR FOR T- DIRECTION 

NODAL 

DISTANCES 

FZF 

ALL 

INTERPOLATION FACTOR FOR Z* DIRECTION 

NODAL 

DISTANCES 

GAN 

ALL 

DIFFUSION COEFFtCTENT* 



6AN*S 

AUK 

MASS FRACTION OF FLUID IN FINE STRUCTURES* 


6ANDDL 

ALLNQO 

tenpqrary usage. 



GANtP 

AUK 

STRIOF 

DIFFUSION COEFFICIENT AT NODE LP* 



OANIXH 

AUX 

DIFFUSION COEFFICIENT AT NODE LXN* 



GANLYH 

AUX 

DIFFUSION coefficient AT NODE LYN* 



C-A«irn 

AUX 

DIFFUSION COEFFICIENT AT NODE L?M. 



GANN 

AUX 

AVERAGE DIFFUSION COEFFICIENT* 



GANR 

AUX 

AVERAGE DIFFUSION COEFFICIENT* 



6ANPT2 

AUX 

AVEPAGF diffusion COEFFICIENT* 




ORIGINAU 

OF PCCR QI'ALITY 
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TAiLE C-l ICQNTD.t 


VARIAALE WHERE Df^INITION 

defined or 
U^ED QFTEH 




GASCON 
f.«*MR 
GO 
GPS I 
GPS IP 
H 

HCO 

HCRAT 

HDRFM 

HEIGHT 

HEVA» 

MFD 


AUX»HAIN 

AUX 

AUX»HAIN 

AUX 

AUX 

ALL 

INIT 

IHIT 

alihqd 

INIT 

S»RAT 

PAIN 

INIT 


UNIVERSAL GAS CONSTANT DiVtDEO JT NOLECULAR WEIGHT OF AIR. 
generation rate OF TUNGULENCE ENERGY. 

CONSTANT IN SOOT NUCLEUS FORNATION RATE (SEE INPUTI. 
•GANASPPSI. 

6PSI DIVIOEO RT DENSITY OF FINE STRUCTURES. 

ENTHALPY. 

HEAT OF CONRJSTIOM OF CO. 

TEMPORARY USAGE. 

temporary usage. 

CHANNEL HEIGHT OF COMBUSTOR. 

MEAT OF VAPOR IT AT. ON OF LIQUID FUEL. 

HEAT OF FORMATION OF FUEL. 


hfuel 


FPRAY heat of COMBUSTION Of FUEL. 


AUX*'*'** temporary usage for enthalpy. 

INIT 


HSURC 

HSUP 


HT 

HTC 


5TRIPE MIXTURE ENTHALPY.) 


AUX 

ALLMOP 

INIT 

STRIDE 


ENTHALPY OF GAS MIXTURE. 


SPRAY 

allmod 

AUX 


HEAT TRANSFER COEFFICIENT FOR DROPLET HEATUP. 
HEAT TRANSFER COEFFICIENT. 


HTCFXT 


external heat TLnNSFER COEFFICIENT (NOT USEOI. 

HT^l 

TSQLVL 

HEAT TRANSFER COEFFICIENT. 

MYY 

INIT 

PAIN 

AUX 

NUMR6R OF HYDROGEN ATOHS IN FUEL, 


On!r‘f''V t' 

OF PoOu' g.jr.; jfY 
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TMLf C-^l ICOMTO.I 


FQRTdAN SI'BROUTIHE OFflNlTION 

VAPUBLE WHERE 

REFINED OP 
U?EO OFTEN 

HX«H2 INI? EHTHAIPVITEHPORAIIV USACEI. 

lA SPRAT INDEX TO OENOTE LOCATION OF I BOUNDARY* 

1CQNV6 STRIDE «0*CHENICAL KINETICS SOLUTION NOT CONVERSED* 

•1*CHENICAL KINETICS SOLUTION CONVERSED* 

ICTDNA SOLVE NUMRER OF SWEEPS FOR EACH VARIABLE IN SOLVE (SEE INPUT) • 

► AIN 

IDCH rATR*INIT INDEX FOR INTERNEOIATE HYDROCARBON NASS FRACTTDN* 

iUX 

IDCn rATA*INlT INDEX FOR CO HASS FRACTION, 

AIIX 

IDC02 rATA*INIT INDEX FOR C02 NASS FRACTION* 

AIIX 

IDFU OATA*INIT INDEX FOR FUEL NASS FRACTION, 

AUX 

SPRAY 

STRIDE 

ALLNOO 

lOHl DtTA INDEX FOR N ATON NASS FRACTION, 

IDH2 OATA,INIT INDEX FOR H2 NASS FRACTION, 

Al*X 

1DH70 rATA*lNlT INDEX FOR N2Q NASS FRACTION. 

AUX 

IDK AIIX *01 FDR RATE CONTROLLED CONRUSTION* 

•02 FOR NIXING CONTROLLED CONBUSTION. 

IDHO DATA INDEX FOR NO NASS FRACTION. 

IDNOT DATA INDEX FOR N02 NASS FRACTION. 

IDNl DATA INOFX FOR N ATON NASS FRACTION* 

1DN2 tATA.INIT INDEX FOP N2 NASS FRACTION. 

AUHOP 

AUX 

STRIDE 

inn DATA INDEX FQP 0 ATON NaSS FRACTION, 
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TA^ILti C-l ICONTD.I 


FO«T»AN St'MOUTINF OfFINiTIOM 

VAF.IAfl|.E WHFRE 

OfflHfO n* 
ll<ED QfTEN 


lOOH 

DATA 

index for on NASS FRACTION. 

1002 

OATA*tNlT 

AUhOO 

ux 

JTPIDE 

INDEX FOR 02 NASS FRACTION. 

low 

MAIN 

ALINOO 

STRIDE 

AUX 

TYPE OF ftOUNOARY AT J«USEE INPUT 1. 

IE 

ALL 

ENDING VALUE OF IILOCAL VALUE OF INLOI. 

lEHO 

FPRINT 

ENDING VALUE OF 1 FOR PRINTOUT. 

IG 

SPRAT 

DQ>LQQP INDEX FOR DROPLET SIZE GROUPS. 

IGAMl-2 

DATA 

allmoo 

INDEX TO DENOTE TYPE OF ROUNDARY CONDITION FOR 
A dependent VARIASLE. 

IGFNT 

SAP, AY 

INDEX FOR OIAGNOSTtC PRINTOUT. 

IHCFS 

hi 7S 

INDEX FOR CALCULATING TMERMOOYNANIC PROPERTIES. 

I JUMP 

POTPUT 

PAIN 

nunrer of iterations setwein printout. 

IKIN 

INIT 

ALLMOO 

AUX 

STRIDE 

index for boundary CONOiTtONS. 

U 

STRIDE 

TEMPORARY USAGE. 

IL 

SARAY 

Dn<>LODP INDEX FOR DROPLET RAYS. 

ILC 

CREX 

SEE TABLE C-2. 

ILH 

CREX 

SEE TABLE C-2. 

ILQC 

SPRAY 

I INDEX FOR DROPLET LOCATION. 

IMAT 

CREK 

SEE TABLE C-2. 

inAv 

MAIM 

ALLMOO 

1 LOCATION OF NAKINUM CONTINUITY ERROR. 

INCQMP 


INDEX TO DENOTE CONPRESSI BILITYINOT USED), 


I A 


'UiiV 


t ; 1 
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*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦*♦♦•♦♦♦♦♦ ♦*♦♦♦♦♦♦♦♦♦♦*♦ ♦♦♦♦♦•♦♦ 
FORTRAN SUSRQUTINE DEFINITION 

VARIAHE WHERE 

OFFINEO OR 
USED OFTEN 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


XND 

STRIOE 

INDEX USED IN RADIATION CALCULATIONS. 

INDR 

AUHOD 

«l IF U VELOCITY 1$ NEDATIVE AT EXIT# 
OTHERWISE >0. 

INO* 

SPRAY 

INDEX FOR TYRE OP BOUNDARY^ 

XNO 

SOLVE 

OO-LQOP INDEX. 

inonax 

SOLVE 

NUNRER OF TONA SWEEPS. 

INOX 

PAIN 

STRIDE 

INDEX TO DECIDE ON NQX CALCULATIONS! SEE SNOXI. 

INTAFE 

PAIN 

INDEX FOR INITIAL FIELD PRINTOUTISEE INPUTI. 

inv 

INIT 

STRIDE 

TENRORARY USAGE. 

lOlD 

SPRAY 

RREVIOUS t LOCATION OF DRORLET. 

IQNF 

FPRINT 

FIRST VALUE OF I FOR RRINTOUT. 

IF 

STRIDE 

TENRORARY USAGE. 

IPAR 

PAIN 

STRIDE 

INDEX FOR ABSOLUTE OR RELATIVE RRESSUREISEE INPUTI. 

IRLAX 

PAIN 

STRIDE 

INDEX FOR PLANE OR AXtSYNNETRIC FLOWtSEE INRUTI. 

l^BINT 

fPRlMT 

PAIN 

INDEX for RRINTOUT OF OERENOENT VARIABLES 
(SEE INPUT!. 

IRAD 

PAIN 

INDEX FOR RADIATION SOLUTtONlSEE SRAOI. 

IREF 

PAIN 

I LOCATION OF REFERENCE PRESSURE LOCATION. 

XPE$ 

PAIN 

INIT 

STRIDE 

AUX 

INDEX FOR RESTARTING SOLUTIONISIE INRUTI. 

IS 

ALL 

STARTING VALUE OF< KLOCAL VALUE DF IWLII. 

ISNI.VE 

STRIDE 

PAIN 

AUX 

INDEX FOR SOLUTION OF OERENOENT VARIABLES ISFE INRUTI, 


VOfi 

. ■ ■ ■ . i ■ ■ ».* 
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OniGINAL TAC^ 13 
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furtpah smaroutine OfRiMinoN 

VARIAHE WHFRE 

RFflNEO OR 
ll&FO OFTEN 


ISflOT 

RAIN 

INOER FOR SOOT SOLUTIONISEE SSOOTI. 

ISR 

RAIN 

TENPORARY USACtEt 

ISRRAY 

RAIN 

NUNflER OF iterations BETWEEN SPRAY SOLUTIONS. 

ISTA«T 

FRRINT 

STARTING VALUE OF I FOR PRINTOUT. 

HTER 

RAIN 

STRIOC 

AU» 

fOTPUT 

NUMBER OP CURRENT ITERATION. 

ISTO* 

f PRINT 

ENDING DEPENDENT VARIABLE INOEX FOR PRINTOUT. 

ISTR 

5TRI06 

FIRST I LOCATION. 

ISTPT 

FPRINT 

STARTING DEPENDENT VARIABLE INDEX FlU PRINTOUT. 

rSTRl 

50LW6 

FTRAO 

-IS-1. 

isniw 


INDEU FOR STEAOY/UNSTEADY FLOMINOT USED). 

ISUR 

SOLVE 

-ISTRPl. 

ISUN 

STRAO 

-ISaIE. 


«OLVf 

-ISAIE. 

I’lPP 

SOLVE 

STRTOE 

INDEX USED FOP Y-TDNA SWEEP DIRECTION. 

ITER 

CRFK 

NUMBER OF CURRENT ITERATION OF CREK SOLUTION. 

ITNO* 

STRIOF 

RAIN 

NUMBER OF ITERATIONS OF NOV SOLUTION AT FINAL 
ITERATION OF FLOW SOLUTION. 

IT* 

STRIDE 

NUMBER OF CNEHtCAL KINETICS ITERATIONS. 

IT* 

T<:OLVE 

•1 IF RADIATION IGNORED* *2 IF RADIATION CONSIDERED 

I TRAD 

▼SOLVE 

RAIN 

AUV 

INDEX FOR RADIATION SOLUTIONISEE INPUT). 

ITWALL 

AUR 

INDEX FOR WALL TEMPERATURE SQLUTIONISEE INPUT). 

ITYPt 

SPRAY 

•1 FOR HEATING DROPLET, fOP BOILING OROPLET. 


A 
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FORTRAN SURROUritNE DEFINITION 

variable WHFRE 

DEFINED OR 
MSEC OFTEN 


lU 

nain 

INDEX FOR TTAE OF UNITS fSEE INRUTI. 

I« 

5FRAT 

-lUTNJ-I. 

lUINJ 

AU"OD 

E'AIN 

INIT 

I NODE LOCATION OP COOLING SLOTS. 

IVIN4 

INIT 

NAIN 

AUNOD 

I NODE LOCATION OF RAOIAL INJECTION HOLES. 

INEI 

FAIN 

I NODE AT WMICH UPSTREAN INCLINED MALL ENOS. 

INEO 

►AIN 

I NODE AT WHICH DOWNSTREAN INCLINED WALL STARTS. 

I Nil 

AIL 

5TAOTIN6 1 Nines OF CALCULATION OONAIM WHEN 
INCLIMfD WALL IS PRESENT. 

IWL'' 

ALL 

ENDINF : NODES OF CALCULATION OONAIN WHEN 
INCLINED wall is PRESENT. 

I*Y 

FCI.VE 

muos 

INDEX FOR DIRECTION OF TONA SWEEPS. 

JR 

5FHAY 

INDEX TO DENITE LOCATION OP J BOUNDARY. 

JF 

All 

LOCAL VALUE OF JWLO-1. 

JJ 

tnit 

TCPOftABT USAGE. 

JJ 

•■"1 n. 

'■T» AO 

nit-imiP IMOEX, 

JJJ 

sr«>r''F 

OF REACTION STEPS IJJ OF CRIB* SEE TARlt C-?l. 

JKIS 

f<<IT 
All inn 
AIK 

ATUTDF 

INDEX FOR TXPE OF BOUNDARY. 

R 

no. IDE 

TF^-Pt’PARY USAGE. 

J'LtC 

'ARA*’ 

J IDCATION of DROPLET. 

JM 

ALL 

•0-U*lHAX, 

J"** 

f*A!« 

AUNT* 

j IDCA1ION OF NA/nm cniTtNunr efros. 


1 » i» 




oi7:;i::!^u. pac.e is 

OF f>r':\7 QUAUTY 


TAHt C-l <CaHTO.» 


FORTRAN Si'RRQUUNI OeflHiTION 

VARTARU WMFRE 

offinfo or 
U 5fO OFTEN 


4NOK 

JOLO 

JONf 

JR 

JRLANE 

JREF 

JS 

JSTR 

JSTRl 

JSDN 

JSUH 

JSUR 

Jsun 

JSWP 

JSWl 

J$W2 


RAIN TENRORARY USA6E* 

5RRAV RREVIDUS J IDCATIQN OP DROPLET. 

FPRINT FIRST J VALUE FOR PRINTOUT. 

STRIDE TENPORARV USADE. 

AUYRAD VALUE OF J (INDEX FOR Y LOCATION) MNFN 

STRAO SOLVING I DIRECTION RADIATION FLUX. 

ALLNOD 

RAIN J LOCATION OF REFERENCE PRESSURE NODE. 

ALL LOCAL VALUE OF JtfLIPi. 

STRAD STARTING J VALUE.i 

SOLVE 

STRIOF 

SOLVE •JS-l. 

STRAO 

SOLVF •JSTRaH, 

STRAD -JSPJE. 

FPRINT •JONE4NR1. 

SOLVE "JSPJE. 

SOLVE INDEX USED FOR X-TONA SWEEP DIRECTION. 

STRIDE 

INIT.MaIN j node at start of done INLET. 

ALLNOD 

INIT.NAIN j NODE AT END OF DONE INLET. 

ALLNOD 


JTRAO rain TfNPOPARY USAGE. 

JU «PRAT iiJUNIJ. 

JllINJ INIT.NAIN i NODE LOCATIONS OF COOLING SLOTS. 

ALLNOD 

JVtNJ INIT.NAIN J NODE LOCATIONS OF RAOUL INJECTION HOLES. 
ALLNOD 
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FOF(TAAN SimAOUTINE OEFINITIQN 

VARIABLE WHERE 

DEFIMEO OR 
USED OFTEN 


JWtX 

JMtQ 

JWLI 

Jwin 

JMOl 


JWOO 


J1»J2 

KENO 

KENONl 

KEN0F2 

KJC 

KJK 

KJH 

RK 

KLOC 

FH 

KHAX 


|N 1 T*HAIN J NODE AT WHICH UFSTREAH INNER INCLINED WALL 
STARTS. 

INIT 4 NAIN 4 NODE AT WHICH UFSTREAH OUTER INCLINED WALL STARTS. 

ALL STARTIN 6 4 NODES OF THE CALCULATION DONAIN AT 

INNER INCLINED WALL. 

ALL ENDING I NODES OF THE CALCULATION DONAIN AT 

OUTER INCLINED WALL. 

IHIT.NAIN 4 NODE AT WHICH DOWNSTREAN INNER INCLINED WALL ENDS, 

ALLNOD 

AtlX 

STRIDE 

INIT.NAIN 4 NODE AT WNtCH DOWNSTREAN OUTER INCLINED WALL ENOS. 


ALLNnn 

AUX 

STRIDE 



INIT 

TENPORARY VALUES FOR 

JWLI AND AWLO. 

SOLVE 

VALUE OF K AT LAST Z 

LOCATION. 

SOLVE 

-KEND-1. 


SOLVE 

■FENO-t. 


SPRAT 

TENPORARY USAGE. 


ALLNOD 

rUTPUT 

TENPORARY USAGE. 


ALL 

■ KN(F)4JNUI. 


STRAD 

TENPORARY USAGE. 


SPRAT 

F LOCATION OF OROFLET. 

ALL 

-(F»n*NJ*NK. 


NAIN 

ALLNOD 

X LOCAtON OF NAXINUN 

CONTINUITY ERROP 


KNIN SDLWE ■RSTR4X, 

FOLD SFRAT 


•REVIOUS K LOCATION OF DRORLET. 


TAIll C-l tCOHTO.» 


K '» 
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QLALliY 


FORTRAN SOiROOTlMC OIMHITIOM 

VARIABLE WHERE 

OFFINEO OB 


KOMF 

FRRtNT 

FIRST K VALUE FOR RRIHTOUTi 

KONTRO 

AUK 

CONTROL INOEK "1 ON FIRST ITERATION* OTNERNiSf t* 

KONTRQ 

$TRAD 


KOUNT 

tSOLVE 

number OF ITERATIONS ON WALL TENRERATURE. 

KREF 

HAIM 

K LOCATION OF REF'IRENCE RRESSURE NODE. 

KSTR 

FTRIOE 

STRAD 

AUK 

SOLVE 

FIRST K LOCATION.) 

KSUN 

'PLVE 

• REN0»RSTR-E*' 

KSU* 

STRAO 

• 2*N. 

KVINJ 

IMIT 

ALLNOC 

HAIN 

K NODE LOCATION OF RADIAL INJECTION MOLE* 

L 

ALL 

■LRl“l« 

LAOIAB 

CRFK 

SEE TABLE C-E. 

LASTER 

RAIN 

STRIDE 

NAXIMUM NUMBER OF ITERATIONS* 

LCONV6 

CREK 

SEE TABLE C-2* 

LCV 

STRIDE 

NUMBER OF CONTROL VOLUMES IN K DIRECTION! -L-l». 

L DEBUG 

CREK 

SEE TABLE C-2* 

LENER 

TREK 

■•FALSE.* ENERBT EOUATIQN CQNRLETELV OfCOURLEO FROM 
SRECtES EDUATIONS AND SRECIES CONCENTRATIONS 
OBTAINED AT SRECIFIEO TENRERATURE* 

-.TRUE** CONRLETE ENEROT EQUATION IS USED. 

LEOUIl 

CREK 

SEE TABLE C>2* 

Hi 

ALL 

■I*JNI J). 

LTJNV 

sniVE 

INDEK FOR VALUE AT K«JL RLANF IN F ARRAY, 

LIJ2 

STRlOf 

•LtJ^KNtai, 


113 




TABLE C<>1 (CONTD.I 


original page is 

OF POOR QUALITY 


4 f 4^*^**** ******** ***f*^*******^***^******************^******^******* *********** 

FOATAAN SUBAQUriNE OEFINITIQN 

VARIABLE WHERE 

nrFINED OR 
USED OFTEN 

******************************************************************************* 


LIK 

AUXRAD 

$TRA0 

-tPKHUI. 

inORfLNRD 

AUX 

TEMPORARY USAGE OF LP TYRE OP INDEX. 

LNR6 

CREK 

SEE TABLE C-2. 

LONF»LfV»R 

AUX 

TEMRORARY usage of LP TYPE OF INDEX. 

in»F 

*UX 

TENRORARV usage of LR type of INDEX. 

LP 

ALL 


IPB 

STPIOE 

INDEX TO REFER TO Z- LOCATION. 

IPC 

AU 

TEMPORARY USAGE. 

LPCE 

SOLVE 

TEMPORARY USAGE. 

lpch 

AUX 

AUXRAO 

STRIOE 

SPRAT 

INDEX USED TO REFER TO INTERMEDIATE HYDROCARBON 
MASS FRACTION. 

IPCHl 

STRIOE 

INDEX USED TO REFER TO INTERMEDIATE HYDROCARBON 
NASS fraction. 

LPCO 

AUX 

AUXRAD 

STRIOE 

SPRAY 

INDEX USED TO REFER TO CO MASS FRACTION. 

LFCni 

STRIOE 

INDEX USED TO REF'ER TO CO NASS FRACTION. 

LPCSTR 

SOLVE 

TEMPORARY USAGE. 

LPP 

AUX 

INDEX USED TO REFER TO DISSIPATION RATE. 

LPE 

STRIDE 

INDEX TO REFER TO X* LOCATION. 

LPF 

SOLVE 

STRIOE 

STRAO 

INDEX FOR REFERING TO VALUE IN F ARRAY. 

IPF 

SPRINT 

DQ-LOOR LIMIT FOR PRINTOUT. 

IPFAV 

AUX 

STRIOE 

index used to refer to AVERAGE RAOtATIOH FLUX. 


A 
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FORTRAN SURROUnNf**********^*********OifliInJJ**********^****^*^*******^**’ 
VARIABLE WHERE OEFmiTION 

OFFINEO OR 
USED OFTEN 
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LPFU 

MIX 

AUXRAO 

STRIDE 

SPRAT 

INDEX USED TO REFER TO UNRURNT FUEL HASS FRACTION* 

LPFOPX 

AUX 

AUXRAO 

STRIDE 

SPRAT 

INDEX USED TO REFER TO NIXTURE FRACTION* 

LPFUl 

STRIDE 

INDEX USED TO REFER TO UN9URNT FUEL HASS FRACTION* 

LPFl 

SOLVE 

•LPF»ISTRl* 

LPH 

AUX 

STRIDE 

INDEX USED TO REFER TO ENTHALPT* 

LPHP 

AUX 

INDEX USED TO REFER TO ENTHALPT. 

LPH2 

AUX 

AUXPAD 

STRIDE 

<PRAT 

INDEX USED TO REFER TO HE NASS FRACTION. 

LPH21 

stride 

INDEX USED TO REFER TO HZ NASS FRACTION* 

LPK 

AUX 

INDEX USED TO REFER TO TURBULENCE ENERST* 

LPl 

FPRINT 

OO-LOOR LINIT FOR PRINTOUT* 

tPHO 

AUX 

TEHPORART USAGE OF LR TYRE OF INDEX. 

LPN 

ALLNOn 

TENRORART USAGE* 

LPN 

STRIDE 

INDEX TO RFFER TO Y* LOCATION, 

LPN 

AUX 

index used to refer to soot NUCLEUS CONCENTRATION* 

LPNFl 

ALLNOO 

STRIDE 

TENRORART USAGE* 

lpoh»lpo* 

AUX 

TENRORART USAGE OF LR TTRE OF INDEX. 

LP02 

STRIDE 

INDEX USED TO REFER TO OZ NASS FRACTION* 

LPPO 

AUX 

TfNRORART USAGE OF LR TTRE OF INDEX. 

LPRFF 

STRIDE 

PAIN 

LOCATION OF REFERENCE PRESSURE NODE* 
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VARIAPLE WHER€ 
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kPRlt 

AUX 

AUXRAO 

STRIDE 

INDEX USED TO REFER TO X DIRECTION RADIATION 

FLUX. 

IFRr 

AUX 

AUXRAO 

STRIDE 

INDEX USED TO REFER TO y DIRECTION RADIATION 

FLUX. 

LPRZ 

AUXRAO 

STRIDE 

INDEX USED TO REFER TO I DIRECTION PAOIATION 

FLUX. 

IP^ 

AUX 

INDEX USED TO REFER TO SOOT CONCENTRATION. 


LPS 

STRIDE 

INDEX TO REFER TO T- LOCATION. 


tPSTR 

^OLVE 

TENPORART USAGE. 


LPJ?! 

AUX 

INDEX USED TO REFER TO SOOT CONCENTRATION OF 

SIZE 1, 

LPS2 

AUX 

INDEX USED TO REFER TO SOOT CONCENTRATION OF 

SIZE 2. 

LPT 

STRIDE 

INDEX TO REFER TO !♦ LOCATION. 


LPTE 

AUX 

AUXRAO 

SPRAY 

INDEX USED TO REFER TO TENPERATURE. 


LPW 

ALLNDO 

STRIDE 

INDEX TO REFER TO X- LOCATION. 


LPl 

ALL 

NUNBER OF GRID NODES IN AXIAL fXt DIRECTION. 


LPll 

STRIDE 

TENPORARY USAGE. 


LP2 

AlLIOn 

STRIDE 

TENPORARY USAGE. 


LRf AFT 

FREK 

SEE TABLE C-2. 


IVCN 

DATA 

ALLunn 

AUX 

STRIDE 

INDEX FOR INTERNEOlATf HYDROCARBON HASS FRACTION, 

LVCHl 

FATA 

STRIDE 

INDEX FOR INTERHEOIATE HYOROCARPQN HASS FRACTION, 

Lvrn 

FATA 

ALLNOn 

INDEX FOR CO NASS FRACTION. 



UUE C-1 (CQNTD.f 


0R1GINA!, P/\Cr W 
OF POOit gJALllY 


t^QRTWAN SliERQUTiNE OEPlNITtQN 

VARIABLE WHERE eriniiigw 

OEFtHEO QR 
USED OFTEN 


LVCOl 

DATA 

STRIDE 

INDEX 

FOR 

CO NASS FRACriONt 

LVC02 

DATA 

INDEX 

FOR 

C02 NASS FRACTION, 

LVO 

DATA 

AUNOO 

AUX 

INDEX 

FOR 

DISStRATION RATE OF TURRULENCE. 

LVFtI 

DATA 

ALLHQO 

AUX 

STRIDE 

INDEX 

FOR 

UNBURNT FUEL NASS FRACTION. 

LVFUOlt 

DATA 

ALLWOD 

AUX 

STRIDE 

INDEX 

FOR 

NtXTURE FRACTION, 

LVFUl 

DATA 

STRIDE 

INDEX 

FOR 

UNBURNT FUEL NASS FRACTION, 

LVH 

DATA 

AUHOD 

AUX 

STRIDE 

INDEX 

FOR 

ENTMALRT, 

LVHl 

DATA 

AUNDO 

AUX 

STRIDE 

INDEX 

FOR 

H ATON NASS FRACTION. 

LVH2 

DATA 

auwod 

AUX 

STRIDE 

INDEX 

FOR 

H2 NASS fraction. 

LVH2D 

OATk. 

INDEX 

FOR 

H20 NASS FRACTION, 

LVH21 

DATA 

stride 

INDEX 

FOR 

H2 NASS FRACTION. 

LVK 

DATA 

ALLHOO 

AUX 

STRIDE 

INDEX 

FOR 

TURDUIEHCE KINETIC ENIRGT. 

IVH 

DATA 

*UHOD 

AUX 

INDEX 

FOR 

Stm NUCLEUS CONCENTRATION, 
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TAttLE C-1 <CONTD.| 


ORIGINAL PAGE IS 
OF POOR QUALITY 


FOKTRAN SUARQUTINf OEflNITlQN 

VAftlAI|.E WHERE 

DFFIHED OR 
USED OFTEN 


LVNO 

DATA 

INDEX FOR 

NO NASS FRACTION. 


I.VNO? 

DATA 

INDEX FOR 

N02 NASS FRACTION* 


LVNl 

DATA 

INDEX FOR 

N ATON NASS FRACTION. 


LVN2 

DATA 

INDEX FOR 

N2 MASS FRACTION. 


LVO 

DATA 

INDEX FOR 

0 ATON NASS FRACTION. 


LVOH 

DATA 

STRIDE 

INDEX FOR 

OH NASS FRACTION, 


IV02 

TATA 

STRIDE 

INDEX FOR 

02 NASS FRACTION. 


LVR* 

DATA 

ALLNOD 

STRIDE 

INDEX FOR 

X DIRECTION RADIATION 

FLUX. 

LVRY 

DATA 

ALLROO 

INDEX FOR 

Y DIRECTION RADIATION 

FLUX. 

LVRZ 

DATA 

STRIDE 

INDEX FDR 

Z DIRECTION RADIATION 

FLUX. 

LVSl 

DATA 

AUNOO 

AUX 

INDEX FOR 

NASS FRACTION OF SOOT 

RARTICLE 

LVS2 

DATA 

ALLROD 

AUX 

INDEX FOR 

NASS FRACTION OF SOOT 

PARTICLE 

LXf 

ALL 

INDEX TO 

REFER TO X- LOCATION. 


tXHC 

AILRQO 

SPRAT 

TERROR ARY 

USAOE. 


LXHl 

AUX 

STRIDE 

■LXN-NI, 



LX* 

ALi. 

INDEX TO 

REFER TO X4 LOCATION. 


LX*l 

AUX 

STRIDE 

-LXR-NI. 



tv« 

ALL 

index TO 

REFER TO Y- LOCATION, 
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TAHE C-1 (CONTO.) 


ontcjf.n 

nv 




Q 


1 I 


f ' 
i Vfc- 


i'-' 

I'i 


FORTRAN SI'BROUTiNfi OEFIMITION 

yARTABLE MHFRF 

DFFtNED OR 
USFO OFTEN 


LTNC 

AUNOD 

SPRAY 

TENPORARY USACfi. 

LY"l 

AUX 

-iYN-1, 

LYR 

Alt 

INDEX TO REFER TO Y* LOCATION* 

LYPl 

AUX 

STRIDE 

-tVP-Ji, 

U" 

AU 

INDEX TO REFER TO T- LOCATION. 

LZNC 

ALL*<OD 

SPRAY 

TENPORARY USAGE. 

LT«1 

AUX 

•LTN-1. 

tz® 

AU 

INDEX TO REFER TO !♦ LOCATION. 

LZPl 

AUX 

STRIDE 

•LIP-l. 

M 

AU 

•NPl-l. 

MA« 

AUX 

STRIDE 

LOCAL VALUE OF JVLO^l. 

NCV 

STRIDE 

NUNBER OF CONTROL VOLUNES IN Y DIRECTION. 

NIN 

AUX 

LOCAL VALUE OF JMLlPl* 

NNl 

STRIDE 

SANE AS NCV. 

HMl 

AILNOD 

TENPORARY USAGE. 

MnOEl 

AlJXtNAIN 

INDEX FOR TYPE OF VtSCOSlTYtSEE INPUT). 

NODEN 

AUX*NAIN 

INDEX FOR TYPE OF OENSITYISEE INPUT). 

NflOEP 

lUXtNAIN 

STRIDE 

INDEX FOR TYPE OF REACTION RATEfSEE INPUT). 

NPART 

AUXtNAlN 

NUNBER OF SOOT PARTICLE SITES* 

NPl 

AU 

NUNBER OF GRID NODES IN RADIAL (V) DIRECTION. 

HW 

SPRAY 

ARRAY TO STORE NOLECULAR VEIGHTS OF VARIOUS FUELS 

NWCOND 

SPRAY 

CONSTANT USED IN NOLECULAR VEI6HT CALCULATION* 
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TABLf C-l (CONTD.t 


ORIGINAL ?r.c:r. is 
OF POOR QUAUfY 


FORTRAN SUAROUf XN€ DEFINITION 

VARlAAie WHERE 

OFFXNEO OR 
USED QFTFN 






NHT 

'FRAY 

HOLECULAR MEIGHT OF FUEL VARQRS. 

N1(N2 

AUNOn 

TENRORARY usage* 

N 

ALL 

•NRl-1, 

NA 

CRER 

SEE TABLE C-2* 

NCV 

STRIDE 

MUHBER OF CONTROL VQLUNES IN I DIRECTION! ■N»ll* 

NDERUG 

CREK 

SEE TABLE C-2. 

NFNI 

SRRAY 

FAIN 

ALLinO 

STRIDE 

INIT 

INDEX FOR WHETHER LIQUID FUEL N02/LE IS RRESENT 
CSEE INRUn. 

NC 

SRRAY 

HUNRER of DROPLET SITE GROUPS. 

ngah 

PATA 

STRIDE 

AdX 

INDEX FOP DIFFUSION COEFFICIENT. 

NGLOR 

CREK 

SEE TABLE C-2, 

NGLOFR 

CREK 

SEE TABLE C-2, 

NGOTO 

STRIDE 
SOLVE 
STRAO 
ALLNOO 
A (IX 

IHOFX WHICH TAKES VALUES 1.2,3 WHEN U.V.W REINS 
SOLVED, OTHERWISE IT HAS A VALUE OF 4. 

NT 

ALL 

nAXINU** NUNRER OF NODES IN X DIRECTION. 

NINJ 

STRIDE 

N1*NJ, 

NT’<JNK 

STRIDE 

NfRNJYNK. 

NITER 

STRIDE 

KAXMtiN NllhBER OF CHENICAL KINETICS ITERATIONS, - 

NJ 

ALL 

"AXI**U« NUHBER OF NODES IN T DIRECTION. 

NV 

ALL 

NAXINUN NUNBER OF NODES IN Z DIRECTION, 

Nl* 

CREK 

SEE table c-2. 

HN 

«RRAY 

DfSlOO* INDEX OVER FUEL NOTZLES. 


TMLF C-l ICOHTO.I 


OH POOh QU/;Lt l f 

FORTRAN Sl'nRQUTINF DEFINITION 

VARIADLE MHERE 

DEFINED OR 
USED OFTEN 


NNOX 

FAIN 

INDEX FOR NOX SOLUTIONISEE INFUTI* 

NNV 

DATA 

STRIOF 

NAXINUN NUN8ER OF OEFENOENT VARIAUES. 

NP 

DATA 

STRIDE 

INDEX FOR PRESSURE* 

NPl 

AU 

NUNRER OF GRID NODES IN TAN6ENTIAI. (II DIRECTION* 

NP 

CREK 

SEE TABLE C-2. 

NRHO 

DATA 

AUX 

INDEX FOR DENSITY* 

NS 

AU 

NUMBER OF SPECIES* 

NSKIF 

FPRINT 

TEFPORARY STORAGE FOR IPRINT. 

NSl 

SPRAY 

FAIN 

NUMBER OF SPRAY CONE RAYS* 

NSL2 

S*RAY 

• fsunni. 

N$H 

CREK 

SEE TABLE C-2* 

NSOOT 

FAIN 

INDEX FOR SOOT SOLUTIONCSEE INPUT I* 

NS1»N$2 

ALL 

TEMPORARY USAGE OF OQ-LQOR LIMITS ON SPECIES 
CONCENTRATIONS* 

NTP 

OUTPUT 

INDEX FOR TAPE NUMBER* 

NTPT 

STRIDE 

-NTPl^NTPI* 

NTP* 

STRIDE 

FAIM»INIT 

AUX 

INDFX FOR TAPE NUMBER* 

NTP2 

STRIDE 

NAIN»INIT 

INDEX FOR TAPE NUMBFR* 

NTPl 

SPRAY 

FAIN 

ALLNOD 

index for tape number* 

NUINJ 

FAIN* INIT 
ALLNOD 

NUMBER OF COOLING SLOTS* 
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TAiLf C-1 (CONTD.I 


ORIGINAL PAG^ IS 
OF POOR QUALITY 

FORTRAN St«RRQUrtN£ DEFINITION 

VARIABLE WHERE 

nfFlNEO OR 
USED OFTEN 


NV 

ALL 

DERENOENT 

VARIABLE INDEX, 

NVCM 

fATA»INXT 

ALLNOD 

STRIDE 

AUX 

INDEX 

FOR 

INTERNEOIATE HTDROCARBON NASS FRACTION* 

NVCQ 

OATAvlNIT 

stride 

AUX 

INDEX 

FOR 

CO NASS FRACTION. 

NvcoJ; 

data 

INDEX 

FOR 

COS NASS FRACTION. 

NVD 

PAfAtlNIT 

AUX 

INDEX 

FOR 

DISSIRATIQN RATE OF TURBULENCE. 

NVE 


INDEX 

FOR 

ENiSStVE POWER* 

NVF 

ALL 

INDEX 

FOR 

lOENTIFYlND LOCATION IN F ARRAY. 

NVFAV 

oata*init 

STRIDE 

AUX 

INDEX 

FOR 

AVERA6E RAOIATIOH FLUX. 

NVFF 

AILNOD 

•NVFCNV). 


NVFU 

DATArINIT 

ALLNOD 

AUX 

STRIDE 

INDEX 

FOR 

UNBURNT FUEL NASS FRACTION. 

NVFurx 

DATA»TNIT 

ALLNQD 

STRIDE 

AUX 

INDEX 

FOR 

NIXTURE FRACTION. 

NVH 

PATAflNIT 

STRIDE 

AUX 

INDEX 

FOR 

ENTHALPY. 

NVHP 

AUX 

INDEX 

FOR 

ENTHALPY. 

MVH2 

rATA,INIT 

STRIDE 

AUX 

index 

FOR 

H2 NASS FRACTION. 

NV^2(i 

DATA 

INDEX 

FOR 

H20 NASS FRACTION. 

NVINJ 

f*AIN 

INIT 

HLNOD 

NIINRfR 

1 OF 

RADIAL INJECTION HOLES. 
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TABLE C-1 <CONTJ.t 



“f 


r>' 

Ot p K,;. ( i. 


fOBTtAN ^UBBUUTINE 

variable where 

nFFlNEO DR 
USED OFTEN 


DEFINITION 


♦♦*♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


♦ ♦♦♦♦t ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 


HVJN 

NVK 

NVKN 

MVH 

NVN 

NVN? 

NVOK 

NVRX 


STHAO -JN! J)*HVN(NVRII.i 

nATA»INIT INDEX FOR TURBULENCE KINETIC ENERfiY. 

ALLNOn 

AUX 

SOLVE -KNCKI^NVNINVFINVM. 

«TRAO 

FRRINT 

ALL "(NV-i»*NIRNJ*NK. 

FATA.INIT INDEX FOR SOOT NUCLEUS CONCENTRATION, 


data index for N2 NASS FRACTION. 

DATA INDEX FOR 02 NASS FRACTION, 

PATA.INIT INDEX FOR X DIRECTION RADIATION FLUX. 
STRIDE 


NVRY 

OATA* INIT 
STRIDE 

INDEX rr»R Y direction RADIATION 

FLUX, 


NV»I 

DATA# INIT 

STRIDE 

ALLNOD 

INDEX FOR I DIRECTION RAOtATtON 

FLUX, 


NVSl 

OATA#INIT 

AUX 

INDEX FOR HASS FRACTION OF SOOT 

RARTICLE 

SIZE 

NVS2 

DATA# INIT 

AUX 

INDEX FOR NASS FRACTION OF SOOT 

PARTICLE 

SIZE 

NVU 

data#init 

AUX 

INDEX FOR TENRERATURE, 



NVV 

f »RINT 

no-LOPR COUNTER, 



NVVV 

fprint 

FIRST DERENOENT VARIABLE TO BE RRINTED ON 
A CALI TO FRRINT.i 


N1 

fR£« 

SEE table C-2, 



N2 

TREK 

SEE TABLE C-2, 



Nj 

fRFK 

SFE TABLE C-2, 




/ 
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TAHC C-l (CONTO.t 


ORIGINAL PAGZ IS 
OF POOR QUALITY 


FORTRAN SURROUTINE DEFINITION 

VARIABLE WHERE 

DEFINED OR 
U5ED OFTEN 


OftRSI 

AUX 

TENPQRARY USA(iE* 

OOPSIR 

AUX 

TENPQRARY USAGE. 

P 

ALL 

PRESSURE. 

PA 

TRIK 

PRESSURE. 

PATH 

AUXRAD 

PATH LENGTH FOR RADIATION CALCULATIONS. 

PBAR 

OUTPUT 

TEHPORARY USAGE. 

PC02 

AUXRAD 

C02 PARTIAL PRESSURE. 

PEKPl 

INIT 

PRE-EXPONENT FACTOR IN FIRST STEP OF HYDROCARBON 
OXIDATION SCHENE.I 

PE*P2 

INIT 

PRE-FXPDNENT FACTOR IN SECOND STEP OF HYDROCARBON 
OXIDATION SCHENE. 

PEXP3 

INIT 

pre-exponent factor in THIRD STEP OF HYDROCARBON 
oxidation scheme. 

PEXPA 

INIT 

PRE-EXPONENT FACTOR IN FOURTH STEP OF HTOROCARBON 
nxiOATlON SCHENE.i 

Prtl 

INIT 

AUX 

FUEL NASS FRACTIDNASTOICHIDNETRIC MIXTURE FRACTION 

PHZn 

AUXRAD 

H20 PARTIAL PRESSURE. 

PI 

SPRAY 

-3.141S9* 

PJAX 

ALLNOD 

PAIN 

PJAY FUNtTinw FOR HEAT TRANSFER WALL FUNCTION, 

PLAXBl 

All 

IPLAX-I, 

?LrP£F 

STRIDE 

PRESSURE AT reference PRESSURE LOCATION. 

PHiPOT 

<PRAY 

constants in boiling point CALCULATION. 

P02 

AUX 

OXYGEN PARTIAL PRESSURE. 

PP 

ALL 

PPfSFURF CORRECTION. 

PPIN 

CPtK 

SFF TABLE C-2. 

PR 

AUXtNAlU 

ALLNOD 

LAMINAR PRANO'^L/SCHNIDT NUMBER. 


TA8LI C-l CCflNTT'.l 


ORIGINAL Pr.G'i IS 
OF POOR QUALITY 


FORTRAN SU8RQUTIHE DEFINITION 

VAFtAFLE MHERE 

DIFINEO DR 
USFO OFTEN 


RRFF 

AUXtNAIN 

AiLono 

T0R8ULENT RRANDTL/SCHNIDT NURIER* 

PRES5 

NAIN 

INIT 

STRIDE 

AUX 

STSTEN PRESSURE. 

RRf KPS 

AUXfNAIN 

PRE-EXPONENT FACTOR IN SOOT OXIDATION RATE (SEE INPUT)* 

PREKPl 

AUX»NAIN 

INIT 

PRE-EXPONENT FACTOR IN FIRST STEP OF HTDROCARRON 
OXIDATION SCNENE(-PEXPl). 

PREKP2 

AUX»NAIN 

INIT 

PRE-EXPONENT FACTOR IN SECOND STEP OF HYOROCARRON 
OXIDATION SCNENE(>PEXP2), 

PR6KP3 

AUX*NAIN 

INIT 

PRE-EXPONENT FACTOR IN THIRD STEP OF HYOROCARRON 
OXIDATION SCHENE(-PEXP3)* 

RRFXP^ 

AUXtNAIN 

INIT 

PRE-EXPONENT FACTOR IN FOURTH STEP Of HYOROCARRON 
OXIDATION SCHENE(«PEXP4). 

PRRAT 

PAIN 

RATIO OE LAHINAR AND TURRULENT PRANDTl NUNRERS. 

PR3 

SPRAT 

PRANDTL NUNRER. 

PSI 

AUX 

FRACTION OF FINE STRUCTURES HEATED ENOUGH TO REACT* 

PSIC 

AUX 

TENPORART usage in soot oxidation RATE. 

PT2 

SPRAY 

•2PPI, 

OCH 

TSOLVE 

CONVECTION HEAT TRANSFER* 

oonr 

SPRAT 

MEAT TRANSFER RATE TO DROPLET* 

OP»« 

TSO« VE 

NET RADIATION HEAT TRANSFER ERON HALL. 

00-04 

CREK 

SEE TARLE C-E* 

R 

AU 

RADIUS. 

RAO 

TSOLVF 

RADIATION HEAT FLUX TO HALL. 

RADIN 

INIT 

ALINOD 

INLET RADIATION FLUX. 

RAOSItR 

TNIT 

AUNOD 

RADIATION FLUX AT EACH AXIAL STATION. 


TAblC C-1 fCntITO.I 


ORIGINAL PAGE IS 
OF POOR QUALITY 


FORTRAN SUIROUTINE DEFINITION 

TARIABIE where 

DEFINED OR 
USED OFTEN 


RATE 

SPRAT 

DROPLET EVAPURATEON RATE. 


RATIOX-R 

INIT 

ALLNOD 

AUX 

CONSTANTS USED IN ELEMENT DALANCS 

EQUATIONS, 

RATOlO*12 

INIT 

allnoo 

AUX 

CONSTANTS USED IN ELENENT lALANCE 

EQUATIONS. 

RDT 

STRIDE 

ALWAYS EQUAL TO lERO. 


REI 

SRRAT 

DROPLET REYNOLDS NUNRER. 


RELAX 

SOLVE 

fAlN 

STRIDE 

AUX 

UNOER-RELAXATION PACTORS <SEE INPUT!. 

RELAXN 

SOLVE 

AUX 

•1. -RELAX. 


RET 

AUX 

TURBULENT RETNOLDS NUNRER. 


RFUfL 

HAIN 

SPRAY 

RADIUS OF FUEL NOZILE* 


RFltRFZ 

AUX 

SOOT FORMATION RATES. 


RCUS 

CREX 

SEE TABLE C-Z. 


RC«A$IN 

CRCK 

SEE TABLE C-Z. 


RHD 

ALL 

DENSITY* 


RHPA 

AILHOO 

STRIDE 

OENSITY*AREA«> 


RHOCnN 

RAIN 

AUX 

PRESSURE DIVIDED BY tINIVERSAL 6AS 

CONST ANT. 

R.HPINJ 

ALLNOD 

DENSITY OF DILUTION IET. 


RMDLR 

AUK 

DENSITY AT NODE LP. 


RHfin 

AUK 

DENSITY OF SlIRtnilNDINr, FLUID* 


RMOf 

AUX 

PAIN 

INIT 

SOOT PARTICLE DENSITY. 



1 




Tme c-i icnHTD.i ORICINAL Pr/17. rs 


OF POOR QUALITY 



VAItlASiC erininUN 

OFFINEO OR 
USED OFTEN 


RHOPR 

stride 

INIT 

DENSITY AT NODE P* 

ROQSTR 

AUX 

DENSITY OP FINE STRUCTURES. 

RHOSM 

INIT 

ALLNOD 

INLET DENSITY. 

RH04 

INIT 

DENSITY. 

RI 

STRIDE 

PAIN 

INNER RADIUS OF CONBUSTQR. 

RN 

STRIDE 

RADIUS AT V-VELOCITV LOCATION. 

RNV 

STRIDE 

RADIUS AT V-VELQCITY CONTROL VQLUNE SURFACE 

RNC 

AUX 

TENPORARY USAGE. 

RNG 

SPRAY 

NUNDER OF DROPLET SHE GROUPS. 

RNSL 

SPRAY 

PAIN 

IMT 

•NSL2# NUNDER OF SPRAY CONE RAYS. 

ROA 

ALLNOD 

OENSITYPAREA. 

ROF 

SPRA» 

density OF LIOUID FUEL AT SOILING POIN*. 

RQFO 

SPRAY 

initial density op LIQUID FUEL. 

RnsT 

SPRAY 

gas density. 

RTCO 

INIT 

ALLNOD 

AUX 

SQUARE ROOT OP CD. 

RTCOK 

AILNDD 

turbulence ENIR6Y*SORTICO», 

RVAV 

stride 

TENPORARY USAGE. 

RVFCF-7 

'PRAY 

COORDINATE TRANSFORNATION QUANTITIES. 

SRAR 

nUTPUT 

TENPORARY USAGE. 

SCATR 

AUXRAO 

PAIN 

INIT 

SCATTERING COEFFICIENT IIP ITRAO-E). 


A 
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ORIGINAL PAC^ (B 
OF POOR QUALITY 


TABLE C-1 (CONTOd 


FORTRAN SUBROUTINE DEFINITION 

VARIABLE WHERE 

OEFINEO OR 
USED OFTEN 


SCTR 

AUXRAO 

ARRAY FOR SCATTERING COEFFICIENTS 

sea 

SRRAY 

SCHNIOT NUNBERs 

SECTOR 

INIT 

ANGULAR SECTOR. 

SEXIT 

ALL NOD 

EXIT NASS FLOW ERROR. 

SFAC 

AUX 

TENPORARV USAGE IN CO REACTION RATE. 

SHRSTR 

ALLNOO 

SHEAR STRESS.! 

SIG 

TSOLVE 

STEFAN-BQLTTNANN CONSTANT. 

SIGFA 

AUXRAO 

DATA 

ALLNOO 

INIT 

AUX 

STEFAN-BOLTINANW CONSTANT. 

SINA 

SPRAY 

SINE OF HALF THE NOIILE CONE ANGLE. 

SINA 

SPRAY 

SINE Of NOIILE BACK ANGLE. 

SINO 

SPRAY 

SINE OF NOIILE OQWN ANGLE. 

SINT 

SPRAY 

SINE OF CURRENT SPRAY CONE SEGNENT ANGLE 

SKE 

ALLNOO 

TURBULENCE ENERGY AT COOLING SLOT. 

SL« 

ALLNOO 

LENGTH SCALE AT COOLING SLOT. 

SN 

TREK 

SEE TABLE C-2. 

SNASS 

INIT 

TENPQRARY USAGE. 

SNAX 

ALLNOO 

RAIN 

NAXINUN OF CONTINUITY ERRORS. 

SNCOHC 

OUTPUT 

SNOKE CONCENTRATION. 

sm> 

SPRAY 

**A1N 

SAUTER NEAN DtANETER. 

S'<fNV 

CREX 

SFf; TABLE C«I. 

snoNo 

OUTPUT 

SNOKF NUHBER. 

SNW 

f PfX 

SEE TABLE C-I. 


- «* 


TA»li C-1 (CnnrO.I QP PQQI^ quality 

FORTRAN SOftRQUTiNE DCFINlTIQN 

VARIABLE WHERE 

OEFINEO OR 
USED OFTEN 

4444444444444444444444444444444444 ^^ 4 ^^^^^^^^^^^^^^^ 


SNO 

TREK 

NOT USEOt 


SNOX 

RAIN 

NOX SOLUTION STARTED AFTER ERROR FALLS 
OR AFTER XNOX NUMBER OF ITERATIONS* 

TO SNOX 

SOOTK 

AOXRAO 

SOOT CONCENTRATION* 


SOOTl 

ALL 

NASS FRACTION OF SOOT PARTICLE SIZE 1* 


SOOT2 

ALL 

NASS FRACTION OF SOOT PARTICLE SIZE 2* 


SOR 

AUX 

PART OF SOURCE TERN* 


SORCO 

AUX 

PART OF CO SOURCE TERN* 


SORT 

AUX 

LANINAR SOURCE TERN* 


SORE 

AUX 

turbulent SOURCE TERN* 


SOR 3 

AUX 

LANINAR SOURCE TERN* 


SDR4 

AUX 

TURBULENT SOURCE TERN* 


SR 

ALL 

PART OF LINEARIZED SOURCE TERN* 


SPCH 

AUX 

PART OF LINEARIZED SOURCE TERN tSPI FOR 
HYDROCARBON NASS FRACTION* 

INTERNEOIATE 

SRCIjSRCZ 

AUX 

SOOT OXIDATION RATE. 


SRFU 

AUX 

NART OF LINEARIZED SOURCE TERN (SPI FOR 

FUEL* 

SRFl#SRF2 

AUX 

TENPORARY USAGE. 


SRFEF 

AUX 

TENPORARY USAGE* 


SPK 

?HLVE 

PART OF LINEARIZED SOURCE TERN USED IN 

CYCLIC TONA. 

SQFK 

INIT 

SQUARE ROOT OF FK* 


SRAf) 

RAIN 

RADIATION SOLUTION STARTED AFTER ERROR 
OR AFTER IRAQ NUNBER OF ITERATIONS* 

FALLS TO SRAD 

SREI 

JRRAY 

SQUARE ROOT OF RE I* 


ssnnx 

rain 

SOOT SOLUTION STARTED AFTER ERROR FALLS 
OR AFTER ISOOT NUNBER OF ITERATIONS* 

TO SSOOT 

sss 

AUX 

TENPORARY USAGE* 
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TAKUE C*1 ICONTD*) 


ORIGINAL PAGE IS 
OK POOR QUALITY 


Fn»»TI»AN SUfliROUTINE DEFINITION 

VARIABLE WHERE 

DEFINED OR 
USED often 


SSIIN 

ALLNQD 

FAIN 

SUN OF ABSOLUTE CONTINUITT ERRORS. 

STORE 

SOLVE 

STRAD 

TENRQRART USA6E. 

STA 

INIT 

• SICNA*TENM*4. 

su 

ALL 

FART OF LINEARIIEO SOURCE TERN, 

SUCH 

AUX 

PART OF ilNEARmO SOURCE TERN (SUI FOR INTERNEOIATE 
HYDROCARBON NASS FRACTION. 

SUPU 

AUX 

PART OF LINEARIZED SOURCE TERN C$U» FOR FUEL. 

SUF1»SUF2 

AUX 

TENRORART USA6E. 

SUK 

SOLVE 

FART OF LINEARIZED SOURCE TERN USED IN CYCLIC TDNA. 

SUN 

AUX 

TENPQRARY USAGE. 

SUNl 

FAIN 

TENPORARY USAOE. 

SU«2 

FAIN 

TENPQRARY USAGE. 

SMNO 

FAIN 

RATIO OF TANSENTIAL TO AXIAL VELOCITY AT DONE INLFT. 

SI 

roEK 

SEE TABLE C-Z. 

S2 

CREV 

SEE TABLE C>2. 

T 

INIT 

AUXRAD 

AUX 

TENPERATURE. 

TAN 

INIT 

ANNULUS TEFPEPATURE. 

TAUF 

AUX 

WALL SHEAR STRESS. 

TB 

SPRAV 

LIQUID FUEL BOILING TENFERATURE. 

TCVLW 

ALINOP 

Fain 

UNFERLTUFE OF CTLINORICAL FORTION OF CONBUSTOR MALL 

|f,NF 

ALL 

tffper*ture. 

TENPW 

ALL^OD 

tfnffrbture. 


INIT NASS AVERA6ED TE1FFRATURE AT EACH ATIAL STATin>». 


TIHTN 


0R;Q»NAL PAui£ 

TMU C-1 CCWTO.l OP POCK QUALITY 


OiFINITION 


FORTRAN SUBROUTINE 
VARIABLE WHERE 

defined or 

USED OFTEN 


TF 

5FRAT 

TENRERATURE OF CONBUSTION FROOUCTSt 

TFU 

SFRAT 

LIQUID DROFLET TENFERATURE. 

TFUEL 

FAIN 

ALLNOD 

S»RAT 

INLET TENPER4TURE OF FUEL. 

TGAS 

TSQLVE 

DAS TENFERATURE* 

THETA 

SPRAY 

CURRENT SFRAV CONE SEDNENT ANGLE, 

THETAl 

SPRAY 

FAIN 

INITIAL SFRAY CONE SEGMENT ANGLE, 

THETA2 

SPRAY 

FAIN 

final sfray cone segnent angle. 

TIRE 

STRIDE 

tine. 

TIN 

INIT 

INITIAL TENFERATURE AT EACH AXIAL STATION, 

TINCR 

AUX 

FAIN 

SOOT CALCULATION SYFASSED FOR TENFERATURE, LE«TINCF« 

TINIW 

ALLNOD 

FAIN 

INIT 

INCLINED WALL FORT ION OP CONBUSTOR 

AND OF DONE* 

Tine 

FPRINT 

FAIN 

HEADING FOR DEPENDENT VARIABLE* 

TITLE2 

OUTPUT 

FAIN 

CASE TITLE CARO. 

TK 

CREN 

SEE TABLE C-2. 

TKINV 

CREK 

SEE TABLE C-E, 

TLIR 

ALLNOn 

FAIN 

TENFERATURE OF COOLING SLOT LIF, 

TIN 

CREK 

SEE TABLE C-E, 

THA» 

INIT 

AUX 

NAXINUN TENFERATURE, 

TNEW 

INIT 

TENFERATURE ON NEW ITERATION. 


TAHE C**l <CONT&.l 


ORIGINAL PAGE IS 
OF POOR QUALITY 


FORTRAN SDBROUTtNE OEFINITTQN 

VARIABLE WHERE 

DEFINED OR 
USED OFTEN 

♦ *4*f4.*f*>* ♦*♦*♦♦♦♦♦♦♦♦♦.♦♦♦*♦♦♦♦♦*♦*♦♦*♦♦♦♦♦♦♦♦♦•♦♦♦♦♦*♦♦♦'♦♦*♦♦♦♦♦♦* ♦♦♦♦♦♦♦♦♦♦< 


TNOR 

HAIN 

STRIDE 

NOX CALCULATION BTFASSED IF TENFERATURE.LE.TMOX. 

TO 

AUX 

TENFERATURE OF SURROUNOIND FLUID. 

TOUT 


OUTLET TENFERATURE <N0T USED). 

TS 

AUXRAO 

TENFERATURE. 

TST 

STRAY 

GAS TENFERATURE. 

TSTR 

AUX 

TENFERATURE OF FINE STRUCTURES. 

TSV 

INIT 

FAIN 

TENFERATURE AT DONE INLET. 

Turwj 

AUNQO 

FAIN 

INIT 

COOLING SLOT TENFERATURE. 

TVINJ 

FAIN 

INIT 

DILUTION JET TENFERATURE. 

TV 

TSOLVE 

WALL TENFERATURE.' 

TWN 

T SOLVE 

WALL TENFERATURE AT NEW ITERATION. 

TV2 

TSOLVE 

•TW*«2. 

TX»TR1 

STRIDE 

STRAO 

DIFFUSION FLUX IN X DIRECTION. 

TY#TYl 

STRIDE 

STRAO 

DIFFUSION FLUX IN Y DIRECTION. 

TI 

STRIDE 

STRAO 

DIFFUSION FLUX IN I DIRECTION. 

TIFAC 

STRIDE 

FRACTION OF DIFFUSION FLUX IN I DIRECTION. 

Tl 

SPRAY 

AVERAGE OF TB AND TF. 

TA 

INIT 

TEHFQRARV USAGE. 

U 

ALL 

U-VELOCITY. 

UAor 

ALLNOD 

CORRECTION TO EXIT VELOCITIES. 

UF 

SPRAY 

OROFLET VELOCITY IN X DIRECTION AT CURRENT LOCATION, 
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TABLE C-1 ICnNTO.t 


ORIGINAL PAGL; 13 
OF POOR QUALITY 


FORTAAN St'BRQUTlNE DEFINITION 

variable WHERE 

DEFINED OR 
USED OFTEN 


UFO 

SPRAY 

DROPLET VELOCITY IN X DIRECTION AT PREVIOUS LOCATION. 

UIN 

INIT 

NEAN U^VEIOCITV AT EACH AXIAL STATION. 

UINi 

ALLNQO 

HAIN 

INIT 

COOLING SLOT AXIAL VELOCITY. 

ULIH 

♦FRAY 

UNIT ON DROPLET VELOCITY CHANGE BETWEEN SUCCESSIVE STEPS. 

UNASS 

INIT 

NQNENTUN FLOW THROUGH DONE INLET. 

UNEAN 

ALLNOD 

NEAN EXIT VELOCITY. 

UNtCON 

DATA 

ALLNOO 

STRIDE 

AUX 

INIT 

UNIVERSAL GAS CONSTANT. 

UST 

SPRAY 

GAS VELOCITY IN X DIRECTION. 

USW 

INIT 

WAIN 

AXIAL VELOCITY OF DONE INLET. 

OYH,UYF 

AUX 

AVERAGE U VELOCITY BETWEEN NEIGHBORING NODES. 

UTN»UZP 

AUX 

AVERAGE U VELOCITT BETWEEN NEIGHBORING NODES. 

V 

ALL 

V-VEIOCITT. 

VCtVEC 

AUX 

RESUVTANT VELOCITY. 

VECK-Z 

S*RAY 

UNIT VECTORS IN X»Y*Z DIRECTIONS. 

VF 

SPRAY 

DROPLET VELOCITY IN V DIRECTION AT CURRENT LOCATION. 

VFO 

SPRAY 

DROPLET VELOCITT IN Y OIRECTION AT PREVIOUS LOCATION. 

VFU 

SPRAY 

RESULTANT DROPLET VELOCITY AT CURRENT LOCATION. 

VFUft 

SPRAT 

PAIN 

INITIAL FUEL DROPLET VELOCITY. 

VlNJ 

INIT 

ALINQD 

PAIN 

PAOIAL VELOCITY OF DILUTION JET. 

Vise 

ALL 

VISCOSITY. 



table C-^1 (CQHTO.I 


ORIGINAL PAGE IS 
ur POOR QUALITY 


FOBTBAN SMABOUTINF DEflNlTIQN 

VARIABLE WHERE 

DEFINED HR 
HTEO OFTEN 


VISCO 

VISCOS 

VNIV 

VMT2 

VOL 

VP 

VPT2 

VR 

VST 

VSW 

VXH»VXP 

VZN*VZP 

W 

WALKE 

WCH 

MCn 

WCQ? 

WC2H4 

Hf 

WFF 

WFI 


SRRAV BAS VISCOStTY. 

AUX VISCOSITY. 

AUX RECIPROCAL OF AVERAGE NOLECULAR WEIGHT. 

AUXRAO 

AUX AVERAGE V VELOCITY BETWEEN NEIGHRORtNG NODES. 

STRIDE VOLUNE OF ELENENTARY CONTROL VOLUNE. 

AUX RESULTANT VELOCITY. 

AUX AVERAGE V VELOCITY BETWEEN NEIGHBORING NODES. 

SPRAY RESULTAMT RELATIVE VELOCITY BETWEEN GAS ANO OROPLET. 

SPRAT GAS VELOCITY IN Y DIRECTION. 

INIT RADIAL VELOCITY OF DONE INLET. 

PAIN 

AUX AVERAGE V VELOCITY BETWEEN NEIGHBORING NODES. 

AUX AVERAGE V VELOCITY BETWEEN NEIGHBORING NODES. 

ALL W>VELOCITY. 

ALLNOO WALL TURBULENCE XINETIC ENERGY. 

INIT NOLECULAR WEIGHT OF INTERNEDIATE HYDROCARBON* 

AUX 

INIT. DATA NOLECULAR WEIGHT OF CO. 

AUX 

INIT. DATA NOLECULAR WEIGHT OF CQ2. 

AUX 

INiTfOATA NOLECULAR WEIGHT OF C2H4. 

SPRAY DROPLET VELOCITY IN I DIRECTION AT CURRENT LOCATION. 

SPRAY FUFL FLOW RATE. 

PAIN 

INIT 

SPRAY Fl»EL FLOW RATE ON A PARTICULAR RAY. 


A 


t.<4 


1 


TA«Li c-i (caNTo.i ORiGiriAi p;-i tb 

OF 

^* ******* f ****** ^*******t^**^^*t ****** 

F0RTI»AN SOKRQUTlNfc OEFINITIQN 

VARIABLE WHERE 

DEFINED OR 
USED OFTEN 

♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦♦•♦♦**♦♦♦♦♦♦♦♦♦♦♦♦••♦♦♦♦♦♦♦♦♦♦ «**«»»* 4 

MFNI INIT TOTAL LtOUID FUEL FLOW RATE* 

MFO SFRAY ORORLET VELOCITY IN I DIRBCION AT RREVIQUS LOCATION* 

VFU INITfOATA HOLECUt.AR WEIGHT OF FUEL* A 

AUX 

WHE INITtDATR NOLECULAR WEIGHT OF Ht* 

AUX 

WH20 INIT* DATA NOLECULAR WEIGHT OF H20* 

AUX 

WIN AILNOO W-VELDCITV T-IROUSH DONE INLET* 

WLTP STRIDE TENPQRART USAGE* 

WNNH*WNNA AUX AVERAGE W VELOCITY BETWEEN NEIGHBORING NODES* 

WN2 INXT»DATA NOLECULAR WEIGHT OF N2* 

AUX 

Wnx INIT*DATA NOLECULAR WEIGHT OF 02* 

AUX 

WST SMAY GAS VELOCITY IN I DIRECTION* ] 

WSW INIT TANGENTIAL VELOCITY OF OONf INLET. 

ALLNOO 

WUINJ ALLNOD COOLING SLOT TANGENTIAL VELOCITY. 

PAIN 

INIT 

WXP.WXP AUX AVERAGE W VELOCITY BETWEEN NEIGHBORING NODES* 

WYN.WYP AUX AVERAGE W VELOCITY BETWEEN NEIGHBORING NODES. 

X ALL AXIAL DISTANCE* 

XniF STRIDE INTERNDDAL DISTANCE IN X-OIRECTIQN* 

XF SRRAY X LOCATION OF DROPLET* 

XN SPRAY X LOCATION OF CONTROL VOLUNE SURFACES* 

XN AUX X distance at X" LOCATION* 

XQ PAIN X LOCATION OF ORIGIN OF FUEL NOIILE SFRAY* 

SPRAY 


ORIGINAL PAGE IS 
OF POOR QUALITY 


TA4t,£ C>>1 tCQNTO.I 


FORTAAN SI«nROUTINC DEFINITION 

VARIABLE MHERE 

DEFINED OR 
USED OFTEN 

4 4444 4 4444 4 4 4444444A*AAA*f»««4>*f »«> AAA «> A AA4Af ft 4 


XR 

AUX 

X DISTANCE AT XA LOCATION. 

XS 

STRIDE 

MAIN CONTROL VQLUNE WIDTH IN X DIRECTION. 

xsu 

STRIDE 

U-VELOCITV CONTROL VQLUNE WIDTH IN X DIRECTION. 

y 

ALL 

RADIAL DISTANCE. 

YOIF 

STRIDE 

INTERNODAL DISTANCE IN Y DIRECTION. 

YF 

SPRAY 

Y LOCATIDN OF DROPLET. 

YM 

SPRAY 

Y LOCATION OF CONTROL VOLUME SURFACES. 

YN 

AUX 

Y DISTANCE AT Y- LOCATION. 

YO 

PAIN 

SPRAY 

Y LOCATION OP ORIGIN OF FUEL NOZZLE SPRAY. 

YP 

AUX 

Y DISTANCE AT YA LOCATION. 

YFLUS 

ALLNOO 

YPLUS IN HALL FUNCTIONS. 

YS 

STRIDE 

NAIN CONTROL VOLUNE WIDTH IN Y DIRECTION. 

YSR 

STRIDE 

NAIN CONTROL VOLUME AREA NORMAL TO X DIRECTION. 

YSV 

STRIDE 

V-VELDCITT CONTROL VOLUNE WIDTH IN T DIRECTION. 

YSVR 

stride 

V-VELOCITY CONTROL VOLUNE AREA NORMAL TO X DIRECTION. 

YX»TZ 

INIT 

tenpqrary usage. 

7 

ALL 

TANGENTIAL DISTANCE. 

ZOtF 

STRIDE 

INTERNODAL DISTANCE IN Z DIRECTION. 

IF 

SPRAY 

Z LOCATION OF DROPLET. 

IN 

SPRAY 

Z LOCATION OF COWTRQL VOLUNE SURFACES. 

IN 

AUX 

Z DISTANCE AT Z- LOCATION. 

ZO 

WAIN 

SPRAY 

Z LDCaTION of origin of FUEL NOZZLE SPRAY. 

ZP 

AUX 

Z DISTANCE AT Z* LOCATION. 

zs 

STRIDE 

NAIN CONTROL VQLUNE WIDTH IN Z OlRECtON. 


rmE C-^l ICQNTD.I 


ORIGINAL PACT: |G 
OF pooli QUALiry 


FORTRAN SUiROUTINE OCFINITION 

VARIAILE WHERE 

PIfINEO OR 
WSFO OFTEN 


TShALL SPRAY ONE HU»iOKETH OF AVEKA6E ANGULAR GRID SPACING. 

Z$W STEIOE W-VEiriCITY CONTROL VOLUNE WlOTH IN Z OIRECTICH, 
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TABLE C-2. LIST OP POPTRAN VARIABLES IN THE CHEMICAL 
KINETICS PROGRAM CREK. 

This list is adapted from Ref. 48 to which the reader is 
referred for further details. 


Fortran 

Variable 

Routines 
Where Defined 
Or Used Often 

Definition 

A 

CALC 

Elements of Newton-Raphson correction 
matrix. 

AL 

CRERO 

SPECS 

CALC 

Atomic stoichiometric coefficients, 
AL(I,J) a the number of kg-atoms of 
element I per kg-mole of species J. 

ATOM 

ERATIO 

(SPECE) 

CREKO 

ATOM (l/K) “ atomic symbol for element 
K. ATOM (2,K) « atomic weight of 
element K. ATOM (3,K) = valence or 
oxidation state of element K. 

ASUB 

CREKO 

Molecular symbol of each NS species 
(e.g., CO, HjO, etc.). 

BO 

SPECE 

CALC 

Atom numbers for reactant mixture, 
B0(1) ® kg-atoms element I per kg 
reactant mixture. 

BX 

CREKO 

CALC 

Exponent-on 10 on pre-exponential 
term of extended Arrhenius forward 
rate expression, when read from 
MECHANISM data cards. Later, BX is 
set = BX*(logelO) to avoid repetitive 
exponentiation on ten. 

BX2 

CREKO 

CALC 

Same as BX for reverse rate 
expression. 

CPSOM 

CALC 

CRERO 

HCPS 

Non-dimensional mixture constant 
pressure specific heat capacity. 

EMV 

CREK 

CALC 

Total convective and diffusive mass 
inflow rate to the control vnlnmAf 
kg m~^ 

ER 

CREK 

ERATIO 

(SPECE) 

Puel/air equivalence ratio. 
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TABLE C-2 (Continued) 


Fortran 

Variable 

Routines 
Where Defined 
Or Used Often 

Definition 

ETA 

SPECE 

Self-adjusting under-relaxation 
parameter. 

FQ 

CREK 

CALC 

Scaling parameter for Q. 

HO 

CRERO 

CALC 

HCPS 

Non-dimensional, ideal-gas enthalpy 
of each chemical species at given 
temperature. 

HSUBO 

CRERO 

CALC 

Convective and diffusive net enthalpy 
influx rate to the control volume, 
divided by BMV (i.e., mass-averaged 
specific enthalpy of reactants 
entering the control volume), J/kg. 
HSUBO must be set by the calling 
program. 

HSUM 

CRERO 

CALC 

working variable wherever used. 

ID 

CRERO 

CALC 

ID(R,J) is the species index number 
(i«l, NS) of the R-th species (R-1,4) 
in the J-th reaction (J<*1,JJ) . 

IDCO, IOC02 
XDH2, IDH20 
IDN2, ID02 

CALC 

Index number (i«l,NS) of the parti- 
cular species in the variable name. 

IHCPS 

CRERO 

CALC 

HCPS 

Value of IHCPS controls whether or 
not subroutine HCPS calculates values 
of non-dimensional one-atmosphere 
entropy for each species. 

ILC, ILH 

CRERO 

CALC 

Index number of the elements carbon 
and hydrogen, respectively. 

THAT 

SPECE 

CALC 

Number of rows in Newton-Raphson 
correction matrix; set in CALC. 
IMAT-N2 if LEQUIL-.TURE. ! TMAT-NQ 
if LEQUIL-. FALSE. 
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TABLE C~2 (Continued) 


Routines 

Fortran Where Defined 

Variable Or Used Often Definition 


ITER 

ITMAX 


JJ 


LADIAB 


LCONVG 

LDEBUG 

LEQOIL 

LNRG 

LREACT 


SPECE Current value of iteration counter. 

SPECE Controls the maximum number of iter- 

ations permitted by each call to 
CREK. Set by DATA statement in 
SPECE. 

CREKO Number of distinct forward reactions 

CALC considered in reaction mechanism; 

must be less than or equal to the 
dimensions of labeled COMMON block 
REACTS. 

CREK LADIAB must be set by program calling 

CALC CREK. If ■.FALSE./ enthalpy source 

term Q is non-zero, and calling 
program must specify values of QO. Ql. 
Q2, Q3 and Q4 in enthalpy source term. 

CREK Initially ■ .FALSE.; set ■ .TRUE. 

SPECE in SPECE if convergent solution 

achieved. Controls solution strategy 
in CREK. 

SPECE If LDEBUG is set - .TRUE, by the 

CALC calling program, intermediate output 

is written on the output record. 
Default value is .FALSE. 

CREK LBQUIL must be set by calling program. 

SPECE If « .TRUE., equilibrium states are 

CALC calculated; if ■ .FALSE., kinetic 

stationary states are calculated. 

CREK For LBQUIL - .FALSE, problems only. 

CALC If ■ .TRUE., fully coupled energy 

equation 1s used. 

CREK LREACT ■ .FALSE, on entry to CREK 

suppresses calculation of combustion 
reaction. Default value la .TRUE. 
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TABLE C-2 (Continued) 


Fortran 

Variable 

Routines 
Where Defined 
Or Used Often 

Definition 

NDEBUG 

CREK 

SPECS 

CALC 

When LDEBUG * .TRUE., NDEBUG set 
from 1 to 5 controls increasing 
detail of debug output. Default 
value of NDEBUG * 5. 

NGLOB 

CREKO 

CALC 

Number of flnite'-ratk global hydrO'* 
carbon pyrolysis steps onsidered. 

NGLOBP 

CREKO 

CALC 

NGLOB + 1. 

NLM 

CREKO 

SPECE 

CALC 

The number of distinct elements 
considered. Must be less than or 
equal to corresponding dimensions of 
labeled CCMMON block CEQUIL. 

N1,N2,N3 

CREKO 

CALC 

N1 » NLM + 1, N2 = NLM + 2, 
N3 = NLM + 3. 

NS 

CREKO 

SPECE 

CALC 

Number of distinct speces considered. 
Must be less than appropriate 
dimensions in labeled COMMON blocks 
CEQUIL, CMATRI, CPARAM and CSPECE. 

ISM, NQ, NA 

CREKO 

CALC 

NSM » NS +1, NQ « NS + 2, 
NA « NS + 3. 

PA 

CREK 

SPECE 

CALC 

Pressure within control volume, 
N m”2. Must be set oy program 
calling CREK. 

PI 

CALC 

Lagrange multipliers in reduced Gibbs 
iteration correction equatations. 

PPLN 

CREK 

CALC 


Q 

CALC 

Negative of non-dimensional enthalpy 
source term, determined by values 
of QO, Ql , Q2, Q3 and Q4 set by the 
calling program. 
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TABLE C-2 (Continued) 


Routines 

Fortran Where Defined 

Variable Or Used Often Definition 


QO 


f Ql# Q2 » 
Q3, Q4 

CALC 

Coefficients for enthalpy source 
term# -Sh " Qq + QT + Q2T2 + Q3t3 + 
Q 4 T 4 , Jm”3 S' I. These values must 
be set whenever LADIAB ~ .FALSE, is 
set by the calling program. 

RGAS 

CRERO 

CALC 

Universal gas constantr 
8314.4 J/(kg-mole) (R) . 

RGASIN 

CRERO 

CALC 

Inverse of RGAS. 

RHOP 

CRERO 

CALC 

Mass density , kg m“3. 

RT 

CALC 

a‘i 

a log T 

SO 

CRERO 

CALC 

HCPS 

One-'atmospherer ideal-gas entropy 
of species i. 

SI 

CRERO 

CALC 

Inlet mole numbers of species i. 

S2 

CRERO 

CALC 

Mole numbers of species i, kg-moles 
i/kg. Calling program must set these 
values as estimates; on return they 
are solution values. 

SM 

ALL 

Reciprocal mixture molecular weight. 

SMINV 

CRER 

CALC 

Reciprocal of SM, therefore the 
mixture molecular weight, kg/ (kg -mole ) . 

SMW 

CRERO 

Molecular weight of species i. 

SSAVE 

CRER 

Array for saving current values of S2. 
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TABLE C-2 (Continued) 


Poi:tran 

Variable 

Routines 
Where Defined 
Or Used Often 

Definition 

TACT, 
TACT 2 

CREKO 

CALC 

Activation temperature (activation 
energy divided by gas constant) for 
forward and reverse reactions 
respectively, degrees K. 

TEN, 

TEN2 

CREKO 

CALC 

Exponent-on-temperature in pre- 
exponential term of rate constant in 
forward and reverse reactions 
respectively. 

TK 

ALL 

Temperature T, deg R. Estimate on 
calling CREK, solution on return. If 
set equal to zero by program calling 
CREK, causes CREK to establish 
estimates for T and S2. 

TKINV 

CREK 

CALC 

Reciprocal of TK. 

TI.N 

CREKO 

CALC 

HCPS 

Logarithm of the temperature. 

X 

CREKO 

CALC 

Current values of the correction 
variables: Also used as working 
variable in subroutine C^EKO. 

Xl, X2 

CALC 

Contact index for forward and reverse 
reactions j. Dimensionless. 

Y 

CREKO 

CALC 

Logarithms of variables. Also used 
as working variable In subroutine 
CREKO. 

Z 

CREKO 

HCPS 

Coefficients for calculation of 
thermochemical data. 
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LISTING OF THE 3-D COMBUSTOR 


PERFORMANCE PROGRAM 


APPENDIX D 


LISTING OF THE 3-D COMBUSTOR PERFORMANCE PROGRAM 


This appendix contains a listing of the 3-D combustor perform- 
ance program. In order to Identify the changes made to the origi- 
nal program of Ref. 1, various correction idents appear at the ends 
of the changed or nev/ly inserted statements. The meanings of f hese 
correction idents are given below: 


CREK 

CALC 

SPEC 

CRKO 

HCPS 


Chemical kinetics program CREK 


ABSOR - Radiation-property subroutine 


SOOT - Soot-emissions updates 

NASAX - Corrections to the original program 

CTDMA - Cyclic TDMA updates 

NOXXX - Updates to make the chemical kinetics 

program CREK CYBSR-Compatible 


RAD \ 
TSO ( 


Radiation updates 


NOX 

NOXX 

4STEP 

COMMENT 


NOx-emissions updates for 3-D program 
NOx-emissions updates for CREK program 
4-Step-mechanism updates 
Comment cards 


JAN14 

JAN18 

FEB2 

MAR2 


Some additional modifications 




K/- 


r.uF niMir 
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2 NLN*N0*NSF*NS1»H$2* lOCN 4STEP J 

a/CCHEMT/CPSUP*HSUIt*E0»PPLN*R6AS*R«ASlN*SNINV*TXlNV*TLN*LNRe NQX 6 

4/COAPAF/ASUe(3O*3)*ENV»ER*HSU90*N0ERUe»NS*PA*Q0*01*O2»Q3*04*RH0Pf* NOW 7 

4 SN*SNW(30)*SF0*41(30l*S2l3OI*rK*LA0IAe*L0EftU6*LFOUlL*LPEACT* NOW 0 

4 lFNEP*EnF W*tCQNV6 NOX 4 

OOURLE PRECISION CPSUN*ENV*ER*F0*HSUnO*HSUF*PA*PnH*l)0*01*O2*Q3* NOX 10 

I 04*RGA$fRCASIN.PH0PP*SN»SNINV»SttN*Sl*S2*TK*TXINV*TLN*SN0 NQX 11 

2.FDT.FST 4STCP 4 

CnNnnN/STEP4/PFXPl»PEXP2*PEXP3*PEXP4*ERl*ER2*ER3*ER4*CiAUl»CE4U2* 4STEF 9 

1 CB*U3*r|F«4f *fXPl*4CXP2*AEWP3*AFXP4*9EXPl*FEXP2*6EXP3.«€XP4, 4STEP 9 

2 rFXPl»CEXP2*CFXP3.CFXP4*FllT»FST 4STFP 7 

LOGICAl lADIAe*LC0NVfi*lDEAU0*LE0Ull*LNR6*lREACT*LENER NQX 12 

CCNNQNAINT/t>F>NfLCV«NCV*NCV»LFl*NPl»NPl*NI*NJ*NK»NINJ*NINJNK*NV* CONFON f 

1 NNV«Nfi0T0*N*ISTR*JSTP*KSTR»NVN|39)*KN(30)*JF(30)»lSTEP* 4STEP 6 

2 ISniVE(32)tlPRlNTI33)*TITLE(10«33)*lwr*lSMF*JSVP*RElAWI39)*NP* 49TEP 9 

3 NRHO*N6AF»IVlII30»9)*IWLg<30*9)«JVLQI40*9)*JMLI(40*9)*IriFl* CQHFON 9 

4 TVFO«FPl*jHn»JHl0.1wai»JNOQ*TnM*JHtNl30*30t»lKTNI40*30l CONHQN 10 

Cn4FnNHNnFXnFAP*LPRFF»ISTUN*!NC0NP*irRA0*NVRX*NVRY»NVR2* JPIANE CQMNON 11 

l.FL AV«l*LVX*LVQ*LVFUOX*lVFU»lVCa»LVH*LVRX*LVRY»LVR2*NVFI32)» 4STFP 10 

2 IJUNP*tRESiTtTLF2l20)iIHAX* JNAX*XNAX»NVC0*FUNCC*NVH2Q*NVC02* CONNON 13 

4 NyN2,NVCH«NVH2 4STFP 11 

Cf)<tFnN^CNnW/LVHl*lVH2*LVNl*LVNQ*LVN02*lV0*LVnH*LVH20»lVN2*LV02* NQX 16 

1 lVCn2*lVFUl*LVC0l*NNav,TN0X*tTNaX»SNnX*TN0X NOW 17 

CnMMnN/TNFRF/NVH*NVFU»NVOX*NVFUOX*NVTE*NnOFN*IOK*FSTatC»HFU*CR* CONKON 19 

1 r.ASCON*RHOCCN*UNICnN»PRFSS*NVFAV*TCYlW*TlNU(»TLIR*ACOEF(4l» COFNQN 16 

2 T4*DFAC*WFU*HCC2*VC0*W0X»WH2n*NN2*HYV*CXX*RATtOl*RATI02* COnFON \7 

3 4AT!03*RATIC4*HC0*TAN*tTMALl CnONON 10 

CO"*'nN/CTDPA7XEND.ICTOFA<32) 4STFP 12 

Cn*nn»/FIS/AFU*nFN*5FAX*SSy«*LASTEP*MTCEXT*CFR*F«ISW*ENT9tN* CONfiEN 2 

t F**f SP*TO(lT*PTCritFNl*RAOtH*RADSUR*FNA*FK*S«FK* COFRFN 3 

2 FXFtttFnrtJ»TF(iFl>VFNZ»FLni40)*TENTN(40l»H(4D)*FUILI40)*FUOX(40) * COFGEN 4 

7 UTM|40l*TINI40l*FUFLSI40)*$FXIT*I6ANl(29t*tCiAN2(29) 4STE* 13 

rr‘4*'nN/tllPO/NVK*HVD,Cl«C?*CO*AK*Otl!E>XJ(3*3)*AFFAC*A|.FAC» CQNAFN 6 

) "^OEL *P4|42)*PRfFI3P».PJAY(32»*E 4$TFP 14 

Cn"NnN/tAP/NXf ,$lfin6,*P$0P*9C*TR CQN6FN 0 

rONFnN/RFACT/APfrM.PRFXRl»CRI*ARCON2*PREXP2*CR2*ni)OfR C0F9EN 9 

Cr»MON/OPOPI /FVAP(iq2»*NTP4*NFNZ*Knm»YQI3)*70l3l*ALFAm* COFCFN 10 

1 RFT4l3)*nnTAm*THf TA)m*THETA2(3)*NSM3)*NfFI3t*9Nni3t* COMGEh 11 

2 VUlfl 13) iPF0ftl3)»FY4lll64)*lEVAP C0"6fN 12 

CONMnH/lHJFC/FL0w|N*IllTNJ(20»f JUtNJI20)*UtNJl20)*VUtNil20)» CQFOFN 13 

MB 
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1 AUlNJir0l*TUINJ(2O»>l«tNJ<?OI»JVIM4<20>»KVIMJUOtf«tNJ(<Olt 

2 PVIN4(20t »0«lttJ<20UA«tNJ(20l*TVIHJ(20l*NUINJ»ltVnt4» J9M1*JSM2* 

3 USMtVSW*AFSH»FSM>TSN*WS«<*SMNQ»KHOSW 
Cn•«nnN/CSO{]T/^VK*NVSl*NyS2*TSQOT«SSaOT•MSQOT*AO»ARCQNNtAA*f«••tFN6 

t»«n«f>AART»OFAAT<2l»FRACFI2l«AHOF.AACONS*MCXPS»ALFNA*AA5*US»OHA 

2*UN*L«Sl*tVr2»CfHCF»TINCF»FUT0T 

CnRHON/CRAO/IRADfSOAO 

CONRPN/CFOUR/FRf AACOH3tCR3*RRfXRA»ARCQHA»CR4*Aiil*3ll»CCl» 

1 AA2»Af»2*CC2»AA3*«F3*CC3*AAA»APA»CCA*RATia9fKATI06fRATt0T* 

? RATinA*RATTCA»llAT010t*AT0n»l(ATai2*MCH»MHXtMC2HAtl.VCH*LVCHl*iVH21 
DIMENSION Ci£ND(2l»CLENV(2>*€ENER(2ltCNASS(2l»€TEMP(2WCfRFSSUI 


DIMENSION CAN6(2> 

data riENOEi.C*. 02 SA/tCLENV/ltOf. 30 ME»CONER/I.O>IO» 9 ,/ 

DATA CNASS/ 1 .«».A 996 /»CTEMR/ 1 . 0 ** 999 »E*CPRESS/ 1 . 0 iS 01329 i/ 

DATA CAN 6 / 1 * 0 »« 01 T 4 S/ 

CHARTER I — — — — •-—-fARANETERS AND CONTROL INDICES——— 

NTR1*R 

NT»2«« 

NTRA-U 

READ ( 9 » 30 t HUE 
READ (9»n> TITIE 2 
31 format I20AAI 
30 FORNAT (lOAAl 

READ ( 9*1001 lPl*MPliNRl*lRLAX*NnDCL»NOOER»lRAR*lTRAO 
READ ( 9*1001 lU*P 00 EN«INTAPE* 10 WtlRES 

too format (a(i 2 *exn 

READ ( 9*1001 ISOLVE 
READ (SilOO) ICTflNA 
READ ( 9 * 100 ) IPRINT 
READ ( 9 * 101 ) RELAX 
READ ( 9 * 101 ) PR 
READ ( 9 * 101 ) PPEE 
101 format (REIC.A) 

PLAXMl.FlQAT(lPlAX-l) 

CMARTER ? OR ID ANO OEONETRY— — — — 


CAit STRIDD 




READ (9*101) (K(I)»I*1*LP1) 
REAM (9*101) (T( J)*J*1»NP1) 
READ (9*101) (7(F)*K-1*NP1) 
DC 200 I*1*LP1 
*00 X(t)>K(IIRCtFRD(T(J) 
on 209 J«1**P1 

209 T(J)*Y(4)PCIEA0(TU) 
on 220 R«1*NP1 

DO TO (210*21!)* IPLAX 

210 T(K)*2(K)«CLFND(IU) 

DO TO 220 

219 I(«)*2(R)«CAN0(IU) 

»?0 CONTINUE 
Rt«t(I ) 

Yn)>0*0 

c — TNCLINEO NAIL DATA 



DC 22 J-1 

*PP1 


TWUi j*A) 

• 2 

2* 

INLOU*A) 

•1 


no 26 4"} 

*LP1 


JNlltJ*A) 

•1 

26 

JMLQ( J*A) 

-DPI 


IWEO-L 



JNtt«l 



JMOI-X 



jNno-MRi 



ORIGINAI page is 

QOAL%'? 




COHOEN 

CONCFN 

CQNGEN 

SOOT 

SDOT 

SOOT 

3 DOT 

4STEP 

ASTER 

ASTER 

NA 

NA 

NA 

NA 

NA 

NA 

NA 

NA 

NA 

NA 

NA 

NA 

NA 

NA 

NA 

NA 

NA 

NA 

NA 

MA 

NA 

MA 

MA 

NA 

MA 

MA 

MA 

MA 

MA 

MA 

MA 

NA 

NA 

NA 

MA 

MA 

NA 

NA 

MA 

MA 

NA 

MA 

NA 

NA 

NA 

NA 

MA 

NA 

NA 

NA 

NA 

NA 

MA 

NA 


lA 

19 

-ft 

« 

9 

10 

11 

19 

10 

17 

7 

0 

9 

10 

11 

12 

15 
lA 

19 

16 
IT 
IB 
ID 

20 
21 
22 
23 
2A 
29 
26 
27 
2E 

29 

30 

31 

32 

33 
3A 
39 

36 

37 
3D 
39 
AO 
A1 
A2 
A3 
AA 
A9 
A6 
AT 
AB 
A9 

90 

91 

92 

93 
9A 
99 

96 

97 
9B 
99 
60 

149 
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03 


01 


24 


21 


260 

261 

21 


Kf 401 iNf l*4N10f IWCQ* JNnO 

tIWEt«F0.2t fiP TO 62 
•fAO (9»IOO| (IWII(J,4»»2*4WI0*N21» 

OF40 (9*1C0) UWLQa*4)*|-J,lHEl) 

CflMTINUF 

IP(lHF0.EOtU6O TO 62 
6 P 40 l 1 * 100 >limO( J» 4 )*J-JNQ 0 » 061 t 
• (40t9*109»f JWL0n»4»«|alWfn*LOl| 

CONTINUE 

00 TO (23»24I*IP4K 
IRPF-l 
J 6 EP"N 
R6f6>N 

l 64 EP>Nr<tK 6 fFt*jniJ 6 EFl 4 lftEF 
CONTINUE 
00 26 

CO TO (260t269)» IPlAir 
6UI-1.0 
CO TO 29 
RU|pRl*Y( J| 

CONTINUE 

CALL STPIOl 

ru 7 !«r*t*"*"***'’***”*'‘*'’*“*“*‘"***"**’*-*“*“*- 

CM4PTEN 1 — — — — — ^OPpenOINT VARIAOLES**-— ~» 
6EA0 19.1011 PPESS»OEN,A«SnR,SCATN.ANFAC»AI.FAC 
NEAP (9»101> CItR.HyT.HFU.fUNCO 

«f**l»A«C0Nl.C6l.66EKP2»AM0K2,CR2 
AEAOl 9* 101 )PRER6a»A6C0N3*CR3»6RE1l64# ANCONA* CR4 
PEA0<9.10nAAl*Bei*CCl.AA2.B62*CC2 
*FAD(9*101lAAa*R«9*CC9>AA4.BA4»CC4 
PFAO (9*101t C1*C2*C0. ANUiENPOR»TCrLN*TINLH»UlP 
!;*STFP,IJUNP,JSNI.JSN2.NUINJ,NV1N4 
103 FORNAT (2CI3*7X)»6(X2*6ir)) 

READ <9»101> USN* VSW.SWNO.AFSNtFSN.TSW 
C—* ~-FMEi INJECTION DATA. 

READ I 9 . 102 I NFNI.ISPRAT.TFUEL 
10 ? FORNAT < 2 ( 12 *f)ri. 6 E 10 . 4 > 

IF (NFNT.LF.O CO TO 110 
00 119 I«1.NFNI 

READ 19.1011 l<Om.TOm*Zam*AlFA(n.OETA<l>*OElTA< 

on 120 1I«1.NFN7 

» 0 ( IT)«XO( IIMCLFNOI rui 

Tom »«voan*ciENonu> 

eo TO (129.130. IfCA* 
in(in-20(in*cLFND(iu» 

CO TO 139 

130 ROdn-TOniMCANCnU) 
m AlFA(TII«ALFA(tII«CANG(IU( 

AFTA< in-eETA(in*CAN6(IUl 
OFLTA(m-0ELTA(Il»*CANC(IUt 
THETAKII }•TH(TA1(1^•CANC(IUI 
THFTA2(in-TNFTA2(in4CANC(tUl 
WFFtj,T)«uFF(in 4 CNAS$(tU) 

RF'IFl (1I»«R»UEI(II»*CI FNtmul 
120 VFUFM m>-Vf(jmit)ACLENV(IU) 

110 CONTTNMF 

ITMFt •TFUFL«CTENF(IUI 

Anu>ANUPCNA 1 S(TUl/CLFNV(IUI 

FPFSS«FNFSS«CFPESS(IIM 

OFN-OEN*CNA$S(IU»/CUFNO(XU1/CLENO(IUMCLIND(IU> 

TCri.N-TCnw«CTFNP(tUt 

ISO 






n.TNETAim* 


121 


NASAX 

3 

NA 

62 

NA 

63 

NA 

64 

NA 

69 

NASAX 

4 

NASA* 

9 

NASAX 

6 

NASAX 

7 

NA 

66 

NA 

67 

NA 

66 

na 

69 

NA 

70 

NA 

71 

NA 

72 

NA 

73 

NA 

74 

NA 

T 9 

NA 

76 

NA 

77 

NA 

76 

NA 

79 

na 

60 

NA 

61 

NA 

62 

NA 

63 

NA 

44 

4 STCP 

19 

4 STEP 

20 

4 STFN 

21 

NA 

69 

NA 

66 

NA 

67 

na 

66 

CQNNENT 

1 

na 

49 

na 

90 

NA 

91 

NA 

92 

na 

93 

NA 

94 

NA 

99 

NA 

96 

NA 

97 

NA 

96 

na 

99 

NA 

100 

na 

101 

NA 

102 

NA 

103 

NA 

104 

NA 

109 

NA 

106 

NA 

lor 

NA 

106 

NA 

109 

NA 

no 

NA 

111 

na 

112 

NA 

113 

NA 

114 

NA 

119 

NA 

116 


rtNLW-TINLH«rTE«'f IIUI 

UTE-nif^CTFCrilUl 

tl1W-USH*ClENVnU» 

VSK*V«H*CIEHV(1U» 

AFfM-AFSW*Ctt«SS(tUl 

FSN«F<M*Cn*SS<IU» 

T5H"TMt<»CTEI<F«IIM 
C— FILM COOllNC R«T«. 

ir (ftuiNj.LE.e) CO TD a» 

EF«n i 9 »io«i nunM(n*i"i*NutNit 
EFAD (StlOO) UUIMJ(n»|»l»NUIN4) 

READ (StlOU (UINJ(tl>t*l»NUtNI) 

READ («lUIN 4 m*I*l*N«IINj) 

READ ( 9 > 1 D 1 I (AUINjm*t*l*l«UlNJ)‘ 

READ ISilOl) <TUIN4Ulft«l*NUIN4) 

DO E19 IIi>l*NUrNJ 
uiNjnn"UiNjni)*aENvau) 
NUIN4Ut»>^HUIRJ<inR€LEN¥IIUl 
AUrH4<n )«AUIM1inRC«*A5S(tUI 
ERE TUTHJtIIl«fUlR4<n»*C?:RR<IU> 

c^...dii,ution jet data. 

RE IF (NVINJ.LFtCI CO TO OR 

READ (EtlOO) tIVlRJ(n*l-l*NVINJ» 

READ t 9 »]C 0 ) (J¥lNJ<n*I-l*HVINJ) 

READ <E» 100 I IRVINjm»I«liMVlNJt 
READ (EtlOn IVlNjm*t*l*NVINJI 
READ < 9 »I 01 > «E¥IRJUWI- 1 »H¥I«JI 
RFAO fE»liU» JOVlRJin»l"l*l»VtWJ» 

READ (9»un (AVINJ<n»I*l*NVINi) 

READ ( 9 flO\> (T«INjm»t*i«NVINJI 
on EAO lI-liRVIRJ 
VINjUn-VlNJtmRCLENVdU) 

EVIMJf n>>EflHJ(tI»«CtEN¥nUI*ClENVIlU) 

oviNj(in-DvtRj«tn*CLEHvuui 

AviNj< in*AviRjMnRCHAssau) 

EAO T¥INJ(ni«T¥INJ<mRCTERRI! 0 » 

RE Rr:D«9»100IRSCOT»ISOOT»RRART 

C— — SOOT data. 

TF<NSD0T.EB.0t«O TO RIO 

REAOIEf 101)SSCOT>AO*ARCaNN»AAA»ODI*FNO»60»kHOR 

READtE»Kl)RRERRS»ARCONS*AtRHA#AAS* 9 «S*DHR»CI»CR*TINCR 

READ! E»101HDRARtm»t>l»NRART) 

REAO<R»10JMFRACRn»»l-l*RRART» 

RHOR«RHOR*CnaSS(IUIF(CLEND(IUIR* 9 I 

0MR«0HR*CFRER( XU > /CRASS (lU) 

RIO CONTINUE 
c .raoiation data. 

IF(tTRAO*NE*ltREA 0 < 9 . 1 O 9 nRA 0 *SRAD 
lOE FORNATnZ.SK.ElO.AI 

oata. 

RFADt E. JOA INNCR* INQK.tTNOXfSNOK.TNQR 
104 FORNAT< 3 (I 2 *FXI» 2 E 10 . 4 I 
TNORaTNOKRCTERROUl 
CACi CRFRO 
HFU- 1 F.RCKX 4 HVT 
fSTfP-lRES 
DFAC- 1.0 

sun *. 01 

SUN2*.09 

charter a <.»wwww^^^* » ^ww^^rATER 1 Ati CONSTANTS'- 
RRFFUV0»*ARRAR/IC2-Cl*/S0RTtC0» 

no RS NV* 1 »NH¥ 

FRRAT*RR(NVf/FREF(NVI 
R| FjAY(N¥**fRCRRRAT-X.I/RRRAT*R.E 9 


NA 

UT 

NA 

UR 

NA 

UR 

NA 

lie 

NA 

111 

NA 

III 

NA 

111 

CflNNENT 

1 

NA 

114 

NA 

119 

NA 

lift 

NA 

117 

NA 

lift 

NA 

UR 

NA 

190 

NA 

111 

NA 

111 

NA 

111 

NA 

114 

NA 

119 

CQNNENT 

1 

NA 

lift 

NA 

117 

NA 

110 

NA 

IIR 

NA 

140 

NA 

141 

NA 

142 

NA 

141 

NA 

144 

NA 

149 

NA 

14ft 

NA 

147 

NA 

140 

NA 

14R 

na 

190 

SOOT 

11 

CONNENT 

4 

SOOT 

14 

SOOT 

19 

SOOT 

1ft 

SOOT 

IT 

SOOT 

10 

SOOT 

IR 

SOOT 

20 

SOOT 

21 

CONNENT 

9 

RAD 

9 

RAO 

ft 

CONNENT 

ft 

NOR 

22 

NOX 

23 

NQX 

24 

NOX 

29 

NA 

192 

NA 

191 

NA 

194 

NA 

199 

NA 

196 

NA 

197 

NA 

190 

NA 

19R 

NA 

IftO 

NA 

Iftl 


A 
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»HncnN»pRCss/uNicrN 

fiAlCONnUNICnN*fO*?32/MOX»0.76a/NN2l 

NA 

HASAK 

162 

0 


CALL STAR? 

1A 

169 

IF(fRTApf .HF.OCALL DUTRUTT INTARE | 

NASAX 

6 

JTRAD"ITRAD 

SOOT 

22 

ITRAO-I 

SOOT 

23 

JMQR*! 

NOR 

26 

SSUn*l,0E30 

SOOT 

2A 

« A.9 


C ANT t HUE 

NA 

166 

TE(NS0QT.EQ.0)60 TQ A4 

SOOT 

29 

C-"— "START SOOT CALGUIATION* 

CONSENT 

7 

Tf(ISrER*LTtISI)0T.AND«SSUN.«r.SSQOT)6O TO 6A 

SOOT 

26 

on n-l»RRART 

SOOT 

27 

IS(Tt¥E<tVSlAlI-lt«l 

SOOT 

20 

6A 1R»lNT(23«in-l 

SOOT 

29 

ISOLVEUVfO-1 

SOOT 

30 

Gf) TO 63 

SOOT 

31 

66 00 6T tl-l»RPART 

SOOT 

32 

isnLWMivsiAit-l»*o 

SOOT 

33 

6? IPRINT(23«m-0 

SOOT 

3A 

I$QLVFUVHI*0 

SOOT 

39 

If»3TOT(23)-0 

SOOT 

36 

63 1F( jTRAD«r0tll60 TO 69 

RAO 

y 

C~ii...StART RADIATICN CALCULATION. 

CORNENT 

0 

TF(ISTPR.GE.IRAO.QR.SSUN«LE.SRAOItTRAO*JTRAD 

SOOT 

30 

tF( ITRAD.FO.IIGO TO 69 

RAD 

n 

ISni¥F(iyRK».| 

RAO 

9 

ISOLVFCLVRTI'l 

RAD 

10 

tS0L¥F(LVR7>*l 

RAD 

11 

TRRTNT<in»l 

RAD 

12 

IR»INTa2)-l 

RAO 

13 

tPRINT«13)*l 

RAD 

lA 

tP»TNT(14l«l 

RAO 

19 

GO TO 60 

RAO 

16 

69 CONTINUE 

SOOT 

39 

ISOL¥F{L¥R*)-C 

RAD 

17 

ISOLVf UV«T»*C 

RAD 

16 

I90LVF(LVRn*0 

RAO 

19 

tPOINTmt-O 

RAD 

20 

tPR|NTn2)«0 

RAD 

21 

IRRINTa3)-C 

RAD 

22 

IFRlNTIlAt-0 

RAO 

23 

60 RPNTTNUF 

RAO 

2A 

IPtJNntt.EO.OIGO TO TO 

NOX 

27 

c -START NOX CALCULATION. 

connfnt 

Q 

IFtNNOV.FO.OIFO TC 60 

NOX 

20 

IFtlSTFP.LT.INOX.ANn.SSUN.Cr.SNOXIGQ TO 60 

NOX 

29 

ISnLVEILVFU>-0 

NOX 

30 

tsoivEavcotaO 

NOX 

31 

ISOLVFIL¥CH»»0 

ASTIR 

22 

lSriLVFUVH2)«C 

ASTER 

23 

TSOLtfFtLVHn*! 

NOX 

32 

JNOX-0 

NOX 

33 

INnx«tSTER 

NOX 

3A 

60 TO 70 

NOX 

39 

6A ISni¥FllVHl)«0 

NOX 

36 

TO rn'*TtNUF 

NOX 

37 


NA 

169 

IF (ISTFF.FO.IOOI ISOLVEtLVRI >6 

NA 

170 

IF tISTFP.Ee.lOOl tSCLVE(L¥O>"0 

NA 

171 

CALL OENS 

NA 

172 

IS»«ISPRAV 

NA 

173 


1S2 


IF ttSTFF>I*FS.lF.9) ISF-l ORIGINA .ry 

IF (Mnn<ISTFP-I«FS»ISFI.FO.O» C*ll SFFAT OF POOil 1 ^‘Ua-U • 

CALL VinCO 

CHAFTFA -S jIH«Lf tIHI FAIMTOUT— — — 

IF lISTFF.Ffl.ltfSl 60 TO 16 

MNITE <A»10t nTEF*SflAX»SSUH»SEXITtP(2»N«{t»m*F«2l. 

1 UIIKAR* JFAXf KHAKI »V(MAXtJNAX>KNAK»*tMmAlfJI«A«*RNA«»* 

2 TEKF (iHAKt AFAR • KHAR )*RH0nHAX*JNAX»KHA1(l*IHAXfJ|iAK*KNA1( 

10 FORMAT (iXtlA.lOdFin.llilKtmi 

1ft CONITINUf 

C4f*4o>4A4»4i«4»4»4n4a>4a4a<4o4ai4«4.»4>4~4— 44«>4»4«.4»4»>4 m4_4_4_4_4..4_4_4.4_4_4« 

CALL STFI02 

c 4<« 4» 4» f ^ F •• 4» 4 » A'> A >* 4 4~ « >* P " A* P A** A * I" 4 •• 4 - 4> *— P •• F— F— F -■ 4— 

IF <EliRPR46T4SlUFI ISTER"L ASTER 
OFACoARARlIO.f tSUH2-SSUni/|SUH2-SUIIll» 

0FAC«ARIN1(1.C*I>FACI 
CALL OUTPUT (NTRl) 

CHARTER A — •^-TERMINATION ———— ———— — — 

IP (ISTFR-LASTERI 60»00*00 
eO WRITE (OtlOl ISTER>SNAX«SSUN 

C 4»4->4-4-4-4-4-4-4-4-4-4-4-4-4-4-4-4-4-4-4-4-4-4-4-4-4-4-4-4-4-4«4-4— 4 
STOR 
FNt) 

(ItnCR DATA 

cnMNON/cvL/R(aoi4Rnnoi»RNV()ot*YSROoi*rsvRtao>4iRiAx 

CflNNaN/6RIDFX(A0l*T(a0ltin0t4R$CA0l4YS(30l4lS(30)4>SIMA0l» 

1 YSV(a0)tF5Hn0)tKDIF(A0t>Y0IFO0l4l0tP(30)*FRR(A0l»FXN(A0»« 

2 FYROOl4FTM(IO)*FZR(30l4FINOO)»OT»TINE 
CON NON 

l/CTN0FK/IDC0»I0FU»IOO2*IDN2*I0H2O»IDC02»IOHl»t0H2*t0Nl»tDN0»t0N02 
l»inOt lOOHt |HCR$>ILCtILH4lNAT«ITER«AJJ*Nl»N2»N34NA»N6L03*N6L0RR* 

2 NLN>NO»NSNtNSl.NS2>I0CH 

3/C';hE"I/CPSUR»H$UN*F 0*PPLN*R6AS>R6ASIN»SNINV*TKINV*TLN»LNR6 
A/CPA«AF/ASUBI3043liENV»ER*H$Un0*N0E3U6»NS4RA»0O»Ol4O2iO3tOA»RHaRRr 
A 3 f SNN(30l4SRO*Sl(30l»S2t30)*TK*LAOIAB*LDEeU64LE6UIL»LREACT* 

A lENERtEOKI J*LCOHVG 

0011 ALF PRECISION CPSUN>ENViER>R0»HSUBO4HSUN*RA»RRLN»O0t0l4e2*03* 

1 0AtR6A$iP6ASIN*RH0PP*SN,SNINV»SNU>$l»S2>Tl(»TKINV»TLN4$N0 
2fFMTf FST 

C0NNnN/STFPA/RERPl*PEXP2«RE)tP34REXRA«GRl*ER24ER34ERA*CEBUl«CEAU2* 

1 CEAU3tCFAUAf IERPl»AEXR2tAERR3»AEXRA*AEXRl*BEXR2*BEXR3»0EXRA> 

2 CFRP1*CFKR2*CEXR3»CFXPA»FUT*FST 

LdOICAL lAI>|AetLC0NY6flDEAU6*LE0UlL»LNR64lREACT4iENER 
CONMON/INT/L«R»N,LCV»NCV>KCV»L»l*NPl«NRl.HI»NA*NR»NINJ,NINJNR»NVt 
1 NHV»NR0TQ»X»ISTR4 JSTR4KSTR»NVM(3SI*KNI30I» JFI30I»ISTFP» 

* ISnLVFO2ltIRR|NT(33)*TmE<10»a3>4tRY»ISHR*JSMRtRELAXtaSI>NRf 

3 NRHnfN6AN»INl{n0>9)»INLO(3O»Sl»JNLO(AO»9)»ANin AOtSWIWEIt 
A iWFOfRPlt JMlI»JM:0(JW0I»JMQQ*l0N*JKIN(30»3CltIKINI A0»30l 

C0NM0N/INnEX/IPAR»LPREF»ISTUN»tNCQNR»ITRAD4NVRX4NVRV»NYRZtJRLANE 

liPlAXHl4LVM>LVD*LVFlinx»LVFU4LVC0*LYH»LVAX»LVRY*LVR2»NVF<32)» 

7 liUNR4lRFStTmF2<20l»INAX*JNAX*KNAX»NVC0tFUNC0*NVH20»NYCn2» 

^ N¥NP,NVCH,NVH2 

CQNRQNFCNCXFI VNl»lVH24LVNltLVNQ»LVNQ2»LVO*LV0H»L¥H20»L¥N2»LVQ2» 

1 LtfCO2*LYFUl4lVC01»NNaX*INOX»lTNOX»SN0R4TNQX 
CONNnN/THFRN/NVHfN¥FU4NVaX»NVFUQX*NVTE*NOOEN»10N4FSrOIC4HFU«CR* 

I fiASCrN,RHrtCN»UMCON,PAF$S»NYFAV»TCYL¥»TlHLWfTLIR» ACOFF(A>» 

R TA«OFAC>NFUtMCO?»WCO>WQX»MH20tMN2»HYY»CXXtRATini*RATI02» 

3 RATICStPATICAtHCOtTANtlTWALL 
C0*"nN/CT0NA/«FH0»lCT0NAI32» 

Cn>*HaN/MlS/ANL»0FN>SNAX*SStiN4LASTER*HTCEXTiCPRiEniSN4ENt$tN* 

1 FNTSR,TnUT*tTCO*FNI*RAOTN*RAOSUR»PNA*PR#SQFR4 

? F»FII#FnFU»TFUFt.NFN7,FtOIAOI»TE«TNIA01*MIAOI»FUEUAOI»FUOXIAOI » 
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? UINI 40 |»TIN( 40 l»FUFl.S(^OUSEXir«t«AHH 2 «|,|(iAK 2 i;>«) 
C 0 *J»<nN/TUAi/H%ir,HVr)>Cl»C 2 »CI>»AK»DUH>XJC 3 i 3 J»AltFAC»AiFAC* 

I « 80 IUAA( 32 »»PHfFU 2 l»PJAYiS 2 >,E a aC. 

Cn«MON/«AO/HWf»SI«lhA*AiSOII»SCAT» 

CO«MON/IMJEC/FinHIN» IUINJf20l*JUINJ(20»iUINJt20>*MUtNJ(20l. 

S U$N.VSM»AFSt«»F«H.TSW»NSW»SM> 4 a, 2 HaSlf *»"#» J 5 «» 45 ¥ 2 f 

Cnn«OK/CSOCT/A¥N,NVSl,H»S2»HOOT,SSOOT*»l$OOf»AO.A2COIMI.AAA.««».FllC 

COX«OM/CRAO/IAAOfS 2 AO 

DATA nI*N J»NK#NNV/ 10 * lOtSf 29 / 

DATA AK»C/. 43 , 9 ./ 

DATA IINICnN»SI«ftA/ 0314 ,fS, 669 E*O 8 / 

DATA NYI(,riYO,HVFtJO)«,NVFU»NVCM,WYCO»H¥H 2 .N¥TI.NVM,H 8 N»NVSl.M»S 2 
1 /A* 9 » A» 9 *lAte» 19 * 6 » 9 *lltl 2 fl 3 / 
data hYFAVtHYRX,HV«y,WVRZ/ 10 »X» 2 » 3 / 

1 lVNO*tVNC 2 tLVO*LVOH/ 16 » 17 (ia* 19 * 2 <'t 21 t 22 * 29 > 29 » 29 » 26 » 2 T* 28 » 29 / 
data LVRX»LVRV.IVFI/ 30 . 31 » 32 / pc».<r.c«»e^r 

N«H? 0 pNVCXtr'«Cn 2 *NVH 2 /lt 2 * 3 * 4 / 

Mi**NRHO»NeAH/ 33 » 34 * 35 / 

ICA"!* I GAH 2 / 1 * 0 * 3 * 1 * 24 * 0 * 0 * 4 * 1 * 24 * 0 / 
ACOEF/-n 06 . 01 *e 620 . 37 *- 6167 . 0 a* 1336 « 69 / 


DATA 

DATA 

OAT* 

DATA 

DATA 


U )4 


END 

SUAROUTIHE init 

ANUC (lC» 10 * 9 l*SOOTl( 10 »lC» 9 l* 80 yT 2 f 10 * 10 * 9 )*FCH( 10 * 10 »SI* 

F*<2T 1C*10*9)*FS(SOO*14)* 

R‘An(lC*lC* 9 t» 7 ISCI 10 *l 0 * 9 )*AaSRfl 0 * 10 * 5 t*SCTRI 10 * 10 * 9 l* 
cuno.io»*$R(io*ioi.DRHfloaiio*io*9»* 

*XR(10*10t f AX* (10*10 >* ATP (10*10 )*Ara(10*l0 )*AIRI 10* 10)* 
AMuo*io>*c 7 no*io»*CY(io)*czu(io»io)*cruaoi* 

- r ZP( 10* 101 *CYP(10» *0170(10*101*97*1*1(752 

OtiFKSICN (1<1C*10*9)*V(10*10*9)*W(10*10*SI*PP(10*10»9) 

DIMENSION P(10*10*9I*7ENP(10*10*9|«6A9(10*10*5I 

EOKIVALERCE (F(l*ll*U(l*l*in*(F(l*2)*7(l*l*|||*(Ftx,)),tl(«,l,t II 
FO-JIVAltPCE (F(l*4>*PP(l*l*l||*(F(l*9I.P(l*l.in 
POUlWAtFNCE (F(l*6l*TE9P(l*l*ll)*(F(l*T)*6ANl*l*in 
C09KOK/C¥l/R(30l**«(30*.RH7(30>*7S((CSOI*7$VR(30»*tPlAX 

»*»•**<>«> »*syc 90 ** 

1 »<9(30»*7SX(10»*KDIF(40l*TDIM10t*70IF(30l*FXP(40»*FX9(401. 
f FrP( 30l*FTP(30)»FZP(30)*FZN(30t *D7*7I9E 

CO»A 0 N 

I®** 2 * 1 ® 920 »I 0 C 02 *I 0 H 1 *I 0 M 2 * 1091 * 1090 * t 0902 
1 * tO 0 »tnpH* IMCf 5 * p.C»UH* tPAT* (TER* JJJ*Nl*K 2 *N 3 *NA* 9 GlQa* 9 Gl 0 a** 

7 Nt«,M 0 *H 5 A*A$l,N 92 ,| 0 CM *■ * 
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^/CCHENt/CP^Ur<»MSUM«FQ»PnM»(t«AS»tfi*S|M»SNINV»TKlMV>UN>U(IIC HdR t> 

A/C»*«A«i/ASUB(IO»llt(NV*F**HSUtO*NOEIU6»NS»FAtOO»lll»Ot»lil»0*.»R*4DFF* NOK T 

A %X>SI*M(30l»SF«*Sl(IO>»S2flOltTK»lAOt*B»I.OEBU<;»iFQUUfiBEACrt MOX B 

4 LFNIB»FDKtJ»lCQN«fi NDX 9 

OnilBlF MFCISION CFSU>t.F«tv*EB.FB»HSUBO»HSUt<*FA»mN»aO»Ol»«tpai. MOM 10 

1 <l4t»CAS*RCASIM*BH(IFFpSMpSNINV»SNH»n*SE»Tt(*TKIN«*UN»SN0 NOX 11 

^•FIIT.FST 4STEF 4 

C0XKDM/STFM/FEXFl»FEXF2»fEKf|»FEXF4*ERlfEBt*ERS*ER4»CEBUl(CEBUS» 4STEF S 

1 CFBU9*CFBU4»A€KFl»AfXP2*AEXF9tAEKF4tBEKFl»RFXF2»BEXPS»BEXF4« 4STEP 6 

P CFXPl*CEXPFprFKP3pCEXP4>FUTpFlT 4STE* 7 

lOGICAl lADtABtirrNV6»l0FBUr.*LF0U|i»UlR6*LPEACT>lENFP NQX 12 

C09N0R/INT/lpP*NplCVpRCV»NCV»LPl»MPl»NPl**n»Ni»NK»N!HJ»NINJNKfNV» COPRON t 

1 PRV*N«0TO»RpISTPpJ$TPtKSTB*NVPI19l*Kn(l9Ot»JP(10l»ISTEP» 4STEP B 

2 ISOLVE(92»*IPRINTmt*TIUEaO»»ll*IRY*l$MP* JSMP*RElAXn9t*NP* 4STEP 9 

3 NRHn>NGAP»lPU(30*»l»lMLQI30*9t*JPI.OI40»9)*JNlIt40»9l*tltEI> COPPON 9 

4 lVEO*PPl*JP1TpJttin*JHOT»2M0Q»t0M*JNIN49O»3OltlPIP<40*90l COPPOP 10 

CnPPOP/IPOEX/lPAPtirXEFpISTUHpfNCOPPtlTRAOpPVRXpPVPVpNVPIpJPlAHE CQPPQP 11 

l*PLAXPlplVKpl«0»lVFUQX»|,VFII»lVCafLVH»ltfRX»lV*V»lVR7»PVF(32l* 4STEP 10 

2 IJUPP*IPESpTiriF2l2OI*IPAX»JPAX*KRAX*PVCOfFUPC0*PVH2O*NVCO2* COPPOP 13 

3 PVP2»P9CM>NVH2 4STEP 11 

C0PPQN/€P0X/lVHlplVH2»LVNl«LVPQtlVN02tiV0»i«0H»lVH20»LVN2*LV02> KQX IB 

1 l9CO?»l«FUl*t9CaiiNPOK*IWQKpETNOXt$POX»TPOX NOK IT 

CQPPOP/TNFPP/NVH»NYPU>N9QV*PVFUOXpNVTE»POOEP* tDK»FSTOlC*HFU*CP* COPPOP 19 

1 GASCOP*RHOCON*UNICnN*PBESS»N«FAV»TCnNtTINLNiTLlP»ACOEF(4l* COPPON 16 

2 T4»nFAC*HFUt9Cf2tNCOtW0X>WH2O«HN2*HTV»CXX»PATI01»PATt02* COPPOP 17 

3 RATI03>RATIE4»PC0»TAN»ITNAU COPPOP IB 

COPPnP/CTDPA/PENO*ICTOPAt32> 4STEP 12 

CO«POP/PISFAP().OFP»SPAX*SSUP»LASTEP>NTCFXT«CFA>EPlSH>EPIStP* C0P6EP 2 

1 FPtSPiTOUT«PTCn»rPI*PAniP*PAnSURtFPA»PK»$OFK» COPGEP 3 

2 FXftl,FDFU»TFUELtWFN2tFlO(403*TEPTPI40l»N<40»»FUEU40l*PUOX(40l * C0P6EP 4 

2 UTN|4CI>TIP(40)tFUELSI40l*SFXIT*I6APl<29)»I6AP2(C9l 4STEP 13 

C(IHPON/TURB/NVK,PVD>Cl»C2»Cn»AK»l>UtOXJ4 3»3t» AKFAC*AIFAC* CflPGEP 6 

I POOFL>PPI3?t.PPFF(32tfPJAVI32l»E 4STE* 14 

COPPOP/PAO/PVEfSIRPAf ABSflPfSCATR COPGEP B 

rOPPnP/RFArT/ARCCNl>P»FXPl«CBl*ARCOP2»PREXP2*CR2»PODER COPGEP 9 

COPPnP/DB0Fl/FVAPn92)iNrF4*PFPr>R0<3)t VQ(3»»20mtALFAl3l» COPGEP 10 

1 nETA(3KDElTA(3),THETAl(3l»THETA2(9)»PSU3>»NFF(3)i$PDI3l* COPGEP 11 

* VFUFLOItRFUfl(3liEV$Uf64ltHEVAF COPGEP 12 

C0PPnP/IPJEC/FL0PtP>IUtPJ(2O)f JUIPJ(203*UtPJ(20UMU!NJ<20l> COPGFP 13 

1 AUTPACFOt»TUlPJ(20)*IVtPJ(20l*JVIPJ(20lf«VIPJ(20l*VINJI20t» COPGFP 14 

?. FVIPJ{20l»OV]tPJ(20>»AVtPJ420)trVIPJ(20l»NUINJ*PVINJ» JSMltJSM2t COPGEP 19 

3 lJSP>YSM»AFSP»FSW*TSMtWSW»SWPO*RHOSM COPGEP 16 

COPNOP/C$OQT/PVP>PVSltPV32i t$OOT»9SOOTf PSQ0T*A0*ARC0NN»AAA*8BB»FPG soot a 

l«60*PFART»0FA()TI2UFRACP(2t*RHnP>ARC0PS*PBEKFS»Al.fHA»AASfSBSf0PB SOOT 9 

2tl9P*UfSl*lVS2*CINCFtTINCF»FUT0T SOOT 10 

CO""OP/CRAO/IRADrSRAO SOOT 11 

COPPOP /CF0UR/FREXF9»ARCnN3*CR3*FREXF4»ARC0N4*C«!4»AAl*BBl*CCl* 4$TEF 19 

1 AA2«R«?tCC2>AA3>PP3tCC3*AA4tBR4>CC4tRATt09>RATI06»RATTn7* 4STE* 16 

2 RATIOP*RATT09*RAT010«RATail»RAT012»WCH»WP2tWC2H4*lVCH*LVCHl*I.VH21 4STEF 17 

r •* *4 44 44 44 44 44 44 44 44 44 44 44 44 44 44 44 Al 7 

ENTRY STARY AL B 

r-— — SlIRRnuTtPF IPlTtEPTRr START) IS USED FOR INITIAllIATION RURRUSES. CQPPENT 10 

r 5CPF RREIIPINARV VALUES — AL 9 

PrCI>1.0112F*7 AL 10 

RArtai»paX4(CXR4HTT/A.)/HFU AL 11 

RATt02*.2l2 AL 12 

RATI03-POR40.9/MCO AL 13 

• AT10A«VCORCXX/VF1I al 14 

WC«*l?.0l4CXX*l.C094|HYY“?.0) ASTER 39 

SPVCinCH)-PCH ASTER AO 

•ATID9o(CXX 4(HTT>2.0I4.29)*W0XFPCN ASTER Al 

RATI06-0.2»Avr» ASTER A2 

RATI07«<MTT-2,e» /VCP ASTFR Al 

*ATtOR»«fP/pFt ASTFR AA 
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»ATI0«*MVV«WM2/<Z,0*WFU» 

• ArniO^tHVVo^.OMWHS/tZ.OtHCHI 
FATOU*CRF*MCC/MCH 
«ATai2>NH2/MFU 

FSrpiC"RATir2/IRAT!DltAATia2) 

MFU»HFU/1,9«T 
CFA-.OOJ 
FMfSM-.F 
E**IS1N>1. 

Ff*tSR«l, 

UFASS«0« 

Sn«3S>l.E-IO 
ASM*AF$H-FSV 
fU»*SW«F8«/AFSW 
FunxSW*FUHStl 
WSW>SHNO«U8N 
UNASS>AFSM*US« 

SFASS«AFSH 

FK>AI«AXinO.,AKFAC*(UNA$S/SNAS$)«*tt*FLQAT(nODU-Xl 

SflFX*SO®TIFF| 

ASMAIR«0. 
on 10 J-JSH1*JSW2 
AStf«LK>A$URLA4VSF(i|*mNFl»-tmi 

AltH-.9«ALFAC«(Y(JSW2»«r<JSH241}-V(JSlin4YUSNl-lM 
tHn$t|*AFStt/ASMRLR/USW ^ 

■ TCO-SCRKCO) 

00 40 I-1#IF1 

F0EL5*n*0. 
f— — FOFL TNJECTION. 

IF (NFN7.LE.0t 00 TO 40 
no 149 tl-l»NFN7 
no 1&9 I>2.L 

IF (XO(tn,6T.0.94IX(n4X(t41t»l 60 TO 169 
FUEL3Mt*FUEIS(I)4MFF(ltt 
169 CONTINUE 
44 FUELSUFlI-FUELSIll 
NFN7-FUELS(tPlt 
C~— NnUNOART CONOITIONS. 
no no R«i>NFi 
DO 9? J-l.PRl 
62 JKTN(J,Xt>0 
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40 


on 40 i"i»tPi 
40 IXIN(T.Kt«0 
no 46 F-l.NFl 
no 46 J-JSW 1 .JSU 2 
49 JKIH(J*K|>1 
44 CONTINUE 
C— — -oiluTICN iFTS. 

44 IF (NVINJ.LE.Ot 60 TO 92 
no 94 II-I.NVINJ 
t-tVtNJ(TI t 

j>jvtNjnn 

4-4YINJ(ll) 

IF tJ.EQ.JHLMI.4ll 60 TO 96 
tKtN(T*Nt.IXI(((l«Kl42 

ftO TO 94 

96 tNtH(t.R».IXtN(I.Rt«l 
94 CONTINUE 

C~~_FtlN COOLIN6 SLOTS. 

92 IF (NUINJ.LE.CI 6(t TO 199 
no 194 I1»1.NUINJ 
I»tUTNJ(in-l 
JoJUlNJdll 

IF (J.fO.JHLKI. 41411 60 TO 19T 
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44 

AL 

49 

AL 

46 

AL 

47 

CONNENT 

12 

AL 

48 

AL 

49 

AL 

90 

AL 

91 

AL 

92 

AL 

93 

AL 

94 

AL 

99 

AL 

96 

CONNENT 

19 

AL 

97 

AL 

96 

AL 

99 

AL 

60 

AL 

61 

AL 

62 

AL 

63 

AL 

64 

AL 

69 

AL 

66 

CONNENT 

14 

AL 

6T 

AL 

66 

AL 

69 

AL 

70 

AL 
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OD 196 N-l*Nri 

60 rn 191 

no 199 K«l*Nfl 
tKINCtiKI*16ll<(I«ltt6l 
COHTIMUF 
C09Tt«Uf 

CQOrUTf TOTAL fLON KATE 
on 699 I-1»LH 
PlQCItxO. 

FIIEim-O. 

TEOTom-O. 

Ainm-AASM 

AUEL(11*FSN 

T69Tt1tll*AfStl6TS« 

AXIAL INJECTION 
IP (NIIINJ.LE.Ot 60 TO 106 
00 106 II-I.NUINJ 
I-IIIINJUn-l 
FLKIt*FLr(Il4AUINJ(tIt 
TENTN(n*TENTN(I)4TUINJ(II|6A0tNJ(IIt 
•— AAOIAL INJECTION 
IF (NVINJ.Lf.Ct 60 TO 100 
00 110 II*lfN9INJ 
I-TVtNJ(in 

FLOn t«FL0<ll4AVINJ(lll 

TENTN(n>TENTN(I)4TVINJ41II*AVINJUll 

rONTlNUF 

FLCW RATI AT EACH t-STATlON 
on 199 la2*LPl 
Pl0(Tt"FL0(I*lt6FL0m 
FUEL ( 1 1 •FUEL ( I>1 1 4PUEL ( 1 1 

TENTN( II«TfNTN(I-lt*TENTNIII 

FL'tWtN-F(n(lPlt4HFNI 
no 169 I-l.LPl 
PU'lXdt-FUEKlI/FLOdt 
FUT0T-F0EltLPlt*9FNt 
AMISS >F(OtlPll~FUEL(LFlt 
FUARAT*FUT0T/AMASS 
no ISO i>iiLPi 

FUELI-(FUELdl4PUFLSdn/(FL0dl*FUELSn»t 

FUELF*ANAKltFUELI-DATiat6d.-FUELItFRATI01f0.t 

• HT-FIIELI/FSTCIC 

THCPS-9 

NSl-IOFU 

NSF«I0N2 

TM.TSU 

TKIMVal.OOO/TF 

SF(TOFUI*FUFLt/SNMdOFU) 

S2( t002t*d.C-FUELIt*NATtQE/SNW(lD0tt 

S2(ION2)«d.O-FUFLIt*d.O-RATt02t/SNWdON2t 

CALI MCPS 

H1.HSUN6UN1CCN*TP 

TIMdl-T$N 

Ftm-FUELI-FUELF 

FlPC02«WCOP6tCXX*FU«FNFU-CXX6FUNCO/NCH>FUNCO/MCOI 
FL*0X-l»ATI016FUELF4EATI0|6FUNC0**ATI02-f«ATlOl4MTI02l9FUELI 
IdNAT I09«PATlC6t6FUHC0 

FtFOX-ANAXl(FlPOX»O.I ^ 

PL»N2n*C.96NN2n6(HYT6FUB/NFU*<EATI076l.019FUHC0l 

FL»N2 ■ 1 »0"-FUFl F-FL PC02-9.0*FUNCO>FL PQX-FL PHtO 

tMCFS-6 

NSl"tnFll 

N6F-tnCC2 


AL 

T2 

AL 

Tt 

AL 

T6 

AL 

T9 

AL 

76 

AL 

77 

AL 

70 

AL 

79 

AL 

00 

AL 

01 

AL 

02 

AL 

tl 

AL 

06 

AL 

09 

AL 

06 

AL 

07 

AL 

00 

AL 

09 

AL 

90 

AL 

91 

AL 

92 

AL 

91 

AL 

96 

AL 

99 

AL 

96 

AL 

97 

AL 

90 

AL 

99 

AL 

100 

AL 

101 

AL 

102 

AL 

109 

AL 

106 

AL 

109 

AL 

106 

AL 

107 

AL 

100 

AL 

109 

AL 

110 

AL 

111 

AL 

112 

AL 

111 

AL 

116 

NOX 

69 

NOX 

90 

NOX 

91 

NOX 

92 

NOX 

99 

NOX 

96 

NOX 

99 

NOX 

96 

NOX 

97 

NOX 

90 

AL 

117 

AL 

lie 

6STEF 

69 

AL 

120 

6STEF 

90 

AL 

121 

6ATIF 

91 

6STEF 

92 

NOX 

99 

NOX 

60 

NOX 

61 
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S2II0fU)«FUElF/SPMlt{)FU» 

s?aoni»"FL»H?/SFKao«?» 

tOCC)»FUMcn/$w»H IDCn» 

s«(ioct<i»FUFrc/SPW(iocH» 

S 2 (IDH 2 )-FUFCC/SFH(I 0 H 2 I 
S 2 (IDH 2 n)«FlFH 2 n/^it 1 M( IDH 20 t 
S 2 (I 0 CO 2 l«FirCO 2 /$'<w(f 0 CO 2 ) 
r~...tCNTMDh SFflIltNCF. 
no ni ii-itic 
T«TINm 
TK»T 

tkinv>i.ooo/tk 
C*IL «CM 
H 2 >HSUF*UNtC 0 H*TK 
CPI«CFSUF*UNICOH 
THFk-T*«M 1 -H?|/CFI 

TMtV-«COFF(lMPHI*{«COEF( 2 l«FHI«(ACO(IPm«FH|*ACOEFUin 

TOAX*A*«AXl(TPAKt2000*) 

TNFM-AHINltTNEM»TPAX) 

IF I aaSITINIII'TNEMI.LT.IO*! 6(1 TO ISO 
isi Timn-TNEw 
WRITE I 6 » 1 S«) 

tS6 FORMAT (• ••ERRflR‘>l*R • > 

110 CONTINUE 

T4*TtHURll 

IKRS-1 

NS1>1002 

HS2-TDP2 


TK»TA 

TKfNV-l.ODO/TK 

S2(T0n2)<RATIC2/SMW<ID02t 

S2(I0N2l>(l.O-RATTO2)/SNWnON2l 

CALL MCRS 

CR«CRStlMAUI»ICCN 

C average U-VEICCITT AT EACH 1-SECTI0(4. 

no 211 I-)>LR1 
ji-jwLnt*i) 

A2«jwim*n 

RH0A*RRESS/6ASC0N/TINIt''lf 

A*.,1*CHNfl»»nin*IRHU2»**2-RMUl*lt**2» 

IF (!PIAR*EQ.2) GO TO 2S1 

Ti«,s4iY(jn*ti Ji*in 

IP Ul.EQ.l) Tl-V(Jl) 

T2-.S*(T( J2I4TU2-) > t 
IF (4?,E0,MP1» T2-YU71 
AA«mMPl»-m»)*(Y2-Yl» 

2U HIMm-FLOlI-n/PMOA/AA 
EHI-EMISWM2.-EHISWI 
R AHIN-f PIS IMPS I6f*A*TSW*PA 
eAnS)lR-EPtSR«SIGHA*TA**A 

C — — . RRIHTrtiT I«PUT (lATA 

write (AflOCAl Tmf2 
lOOA FORMAT aMl»2AK»20AA/28X»eOUM«»> 

HCRAT-HYY/CKX 

WRTTE (6*2010) HCRAT*WFU*HFU 

2010 format (2k,*I» RHYStCAl INPUTWORtlAIlH-l/lOX* 'l.FUEL-' / 

A TO** •HYOPnGEN-CARBON RATIO 1PI12, A,/ 

2 10T* ’MOIECUIAR WEIGHT— —*«———•» 1PE12. 4* • (R6/R6MQLE ) • F 

1 AOXf'HFAT OF FORMATION-— — SIPEIB.Aa* (CALFGHOLE) • I 


JJ*1 

WRITE ( 6 * 2014 ) JJfFSW 

PniA format ()0**'|MLFT-*.Ii*» HASS FLOW RAll- 
I * (KGFS)M 


NQM 

NOK 

NOP 

NOP 

4STEP 

4SIEP 

NOP 

NOP 

COMMENT 

AL 

Al 

NOR 

NOP 

NOP 

NOR 

NOR 

Al 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

NOR 

NOR 

NOP 

NOP 

NOR 

NOP 

NOP 

NOP 

NOP 

CQNMENI 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

Al 

AL 

AL 

FES2 

Al 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 


62 

61 

64 

65 
SI 
S4 

66 
6 T 

15 
126 
12 S 

6R 

69 

TO 

T 1 

T* 

110 

m 

112 

111 

114 

lis 

116 

IIT 

lie 

116 

T 1 

T 4 

TS 

T 6 

TT 

Te 

T 9 

BO 

B 1 

16 

141 

142 
141 

144 

145 

146 
14T 
14B 

149 

150 

151 
182 
181 
184 
188 
186 
187 

1 

189 

160 

161 

162 

161 

164 

168 

166 

16 T 

16B 


•»1PE12*4* 


MMTF 16 
2020 F0KN4T ( 

3 30X«*P 

HKtTE 16 

2026 fqknat r 

1 • ‘XO 

2 • \Pf 

3 1FE12. 
MEt(SHT>2 
ALNOHTaX 
<tECTQR«2 
WHITE t6 

2029 EQHNAT ( 

1 

2 90X*H 

2 30X**AI 

WRITE (6 
2020 FflRRAT ( 

1 • ISO 

IF (NUIN 

2030 FORMAT I 
IF (NUIM 
WRITE (6 

2031 FORMAT I 
WRITE <6 

2033 format ( 

1 9*»'W- 

2 9««iM 
00 T72 I 
t*tutwj( 
J*JUINJ( 

772 WRITE 16 
T70 IF IMWIN 
WRITE (6 

2034 FORMAT ( 
WRITE (6 
00 776 1 
I-IVIMJI 
R-KVINJI 
i-JVINJ( 

▼76 WRITE <6 
774 rOMTINUE 
20R0 format 12 
RIO IF INFNI 
WRITE 16 
R16 FORMAT ( 

1 4»»*BE 

2 

3 9*»MR 
A 3XtMM 

on ein i 

RN$L«FIQ 
RIR WRITF <6 
I THETAl 
Rl« format I 


OF ROUU 


••*1PE12.4#< (NEW/Se.NMI 


2020) fRESS 
0X*'2.AIR 

E 5 SURE-»« 

20241 JJ»ASW*JJ»USW* JJtSWNO 
OX>*INLET-Stl»* MASS FtOW RATE— JR|12.4t 
S>*/30X»«mET-SIl*' ARIAt WEtOCITT— — '.IFE12.4* 

»»/IOX»»INlET-»»n»» swm HWfWER — 

) 

• (YiMFii-mn 

iFi)-xm 

NFu-im 

202S) HEIOHT»AlN«HT*SECTQR 

X**II. GEOMETRICAL INRUT*/IX(3a<lH-)/ 


•••lMEI2a4»* 

>Sm32.4»( 

•'*lfE12«4»t 


IMM/ 
<111*7 
(RAft*MI* I 


*»IRE12.4» 


30 X(*CHAWNEL HEIGHT OF CnMGUSTOR* 

NGTM OF COMBUSTOR— 

GUIAR SECTOR' 

20291 JJtASWRLR 
0 K»* 1 NLET-**U»* FLOW AREA— 

Nl*l 

RNVIMJRNFNI.GT.Ot WRITE A 6 » 2 ttOI 
Xt*tIU AIR INJECTICNS* 2 BX« 14 I 1 H>»» 

•IE*CI GO TO 7 T 0 
2 C 31 ) 

OKt'ltFIlN COOLIMG AIR**) 

2033 ) 

SXf'SlOT NQ«t 4 X**I** 9 X**J** 4 X**K*ABX»*U-VEL 0 CITT*> 
EiaClTY** 9 X**W-WEinCITr*A 6 X**MASS FLaW** 6 X**FUGL FLOW*/ 

/S )** 10 X»* (M/S M* 10 R**< M/S) *» 10 X» * (RG/S)**«X** (KG/SI* ) 
■IfNUIMJ 

n 
n 

2090) lI>I*J*RUOEF*UINJ(II)»UDEF»MUtNW(tI)iAUINJ(II) 
.LE.C) GO TO 7T4 
20341 

iox»*2.duutioh and secondary air-*) 

2C33) 

•IaMVINJ 

n 
n 

I) 

2090) II»I»J*K»UDEF»VINJ(tI)»UDEF»AVtM4III) 

7 X» 13 * 4 X*I 3 * 3 X«I 3 » 2 X*I 3 »BX»lFE 10 * 3 * 4 < 9 XtlFEl 0 * 3 )) 

LE.O) GO TO B 13 
B 16 I 

10 X** 3 .FUEL NOmES-*/ 12 Xi*XO*»aXf * 70 * *ex* • ZO* * 6 Xt * ALF A* * 
A** 9 K** 0 ELTA** 4 X»*THETAl** 4 X»*THETA 2 *» 7 K**NSl*t«X(*WF«* 
7 X, •SM 0 ** 9 X»*WFUEL*/llX**<M)*»TR**(M)*» 6 X**(M-R)*t 4 X»*(RA 0 l*» 

01 ••SXt*<RAD)*» 9 X**<RA 0 )*» 9 X»*(RA 0 )*»BXA«-*t 6 XA*(KG/S) •» 
CR JM)*f 2 X»*(M/S)*| 

IrNFNZ 
TIMSimi 

B 191 xn<n»r 0 ( 1 ) > 70(1 )»AlFA(l)»RETA(t)*OELT AID* 
n*THFTA 2 n»,RNSLtWFF(I)*SM 0 m»VFUELM) 

XtlF 12 E 10 . 2 ) 


R»3 COWTIMlIf 

WRITE (6i2037) FUTCT*AMASS*FUARAT 
2037 format </2Xt*IW. AIR-FOIL BALANCE*/BX*16(1H-)/ 

I 30X. 'TOTAL FUEL FLOW RATE— — — *»1FE12«4» ' (KG/S)*/ 

» 30<» ‘TOTAL AIR FtOW RATE — — *, IRE? 2«4»* (KG/S)*/ 

3 30Xi*FUFL T(3 AIR RATIO— ———*. XRE12.4» /) 

WRITE (6»2040) CF. ARC0NX»FREXRI»CR1« ARC0N2*FREXF2*CR2* 

1 CI*C2*C0 

2^40 FORMAT (2X»*V. SOMF IMFORTANf GUANriTlES'/iX*24(lK-)/ 


6L 

AL 

AL 

AL 

AL 

AL 

AL 

61 

AL 

61 

6L 

6L 

6L 

6L 

61 

6i 

6L 

61 

6L 

61 

6L 

6L 

6L 

6L 

6L 

AL 

AL 

6L 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 
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AL 

AL 

AL 
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AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

At 

AL 

AL 

SOOT 

AL 


LAG 

170 

m 

172 

173 

174 
179 
176 
ITT 
1TB 
179 
100 
lei 
102 
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104 
199 
106 
107 
lOB 
109 

190 

191 

192 

193 

194 
199 

196 

197 
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199 

200 
201 
202 

203 

204 
209 
206 
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200 
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210 
211 
212 

213 

214 
219 
216 
217 
210 

219 

220 
221 
222 

223 

224 
229 
226 
227 
229 

229 

230 
49 

232 
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SOMF IHFQRTANT GUANriTlES'/0X*24(lK-)/ 


•»1PE12,A*< U/KG-R)'/ 

AL 

233 

•*1PE12.A.' (K)'F 

AL 

23A 

•.1PE12.A*/ 

AL 

239 

S1PE12.A*/ 

AL 

236 

«*IPE12.A*« (K)«7 

AL 

297 

«*1PE12*A*/ 

AL 

238 

S1PE12.A*/ 

AL 

239 

•*1PE12*A./ 

AL 

2A0 

S1PE1?.A*7 

AL 

2A1 

9.1PE12.A./) 

SOOT 

90 

RCONA.CRA 

ASTEP 

99 

— 9*1PE12.A/ 

ASTEP 

96 

— — 9RXPE12.A/ 

ASTEP 

97 

—-*•18112. A/ 

ASTEP 

98 


1 10K» 'S^FCIf IC MIAT — — — 

^ 30K» 'ACTlVAtlQN CNfUBY <1ST» 

1 10Kp*ME“E)IF0NEKT (1ST) 

T 10V*«FD0Y FiF*KUF CONSTANT (1ST) — 

7 AOKf «ACT;VATTON INFBfY (?NOI —~-- 
n )OK.«FNF»>fKPnNENT (ZNO) — — — — 

<» 30X*'E0DY BREAKUP CONSTANT CJHOI — 

A S0«i*TUP6* CONSTANT (CD — — — — 

A JOX.DUPP. CONSTANT (C2) 

A lOKfATURII* constant (CO) 

WPTTF(A»P062)PftEXPT>APC0NS.CflStPiiEXf 
206! F0RNAT(30X**PPE-CXPnNENT (JRO) — — 

1 SOX*«ACTIVATION ENER6Y ORO) — 

1 30X*PE00Y OREAKUP CONSTANT' ORO) 

I 30*»*PRE»EXPONENT (ATN) — — — •♦1PI12* A# 

1 30X»«ACTlVATinN ENFR6Y (ATN) — — «^-*#lP£l2. A/ 

1 30X»*F0OY BREAKUP CONSTANT (ATM) — — ••1PI12.A) 

WRtTE(6*206A)AAl»BBl*CCl*AA2»eB2*CC2f AA3»B03»CC3*AAA*B0A*CCA 
206A FQRNATOOX.RSPECIES EXPONENTS. Afe»C(lSTI ~-*tlP3E12.A/ 

1 30X.ASPEC1ES EXPONENTS»A.3*C(2NO) — *.1P3E12.A/ 

I 30X.ASPECIES fXPflNENTS»A.B»C(3R0) — •»XP3E12.A/ 

; 30Y.ASPECIFS E*PQN6NTS»A»«#C( ATN) •~6. 1P3E12.A) 

unit rCNVERSlCN FOR A-STEP RATE CONSTANTS* 

PRFXR1«PREXP1R(NFUR*(1,0-AA1))7( (W0XR*8BD*()(C2HAR*CC1D 
1*(10.0«R(>3.CR(AA1«AB1«CC1))) 
PREXP2*PRFKP2R(NC2HA*R(1.0-AA2))/((Nnx**B«2)R(HFU*ACC2)) 
1*(10*0**(*3*C*(AA2aBB2*CC2))) 
PREXR3«RREXP3R(WCO**(1*0>AA3))/((MOX«*BB3)*(NH20A*CC3) ) 
l«nO.OR*(-3.0«( AA3«Bn3KC3in 
rrE«P«.RREXRA*(MN 2**(1. O'HARA) )/((W0R**BBAI*(WC2HA*RCCA)) 
l«(tO.QR*(>3»OR(AAAABnA«CCA))) 

REXP1-ALDG(PREXP1R(UFU«R(AA1-1.0) )*(N0XR*BB1)R(HCH*RCC1)) 

•EXP2-At06(PREXP2*(WCN*R(AA2-1.0))*(W0XRMB?)R|NF0**CC2)) 

PFxR?«AL 06)PPEXP3*(NC0**(AA3-1.0) )*(W0XR*«fi3)R)NH20*RCC3)) 

PEXPA«A106(PREXPA*(NM2**( AAA-l.O) )♦( MQX**BBA) • (NCH**CCA) ) 

ERl-ARCONl 

FR2>ARC0N2 

ER3*AtC0N3 

ERA-ARCONA 

CFBUl-CRl 

CEK02-CR2 

CEBU3-CPS 

CFBUA»CRA 

AFXPl.AAl 

AFX»2«AA2 

AFXR3-AA3 

aexra>aaa 

BFXP1«BB1 

nfxP2>nn2 

BFxR3*BB3 

bfxpa-ppa 

cfxri«cci 

CFXP2-CC2 

CFXPA-CC? 

CFXPA«CrA 
f ST-FSTOIC 

1F< ITPAO.f S*2)NRtTF(6*20ADAnsnR«TCATR 

2t)A| FflRKAT( 

A TOY. *ARSCRPTtOH COEFFICTFNf — — *-'»lPE12.A»/ 

A SOX* *SCATTER!NB COEFFIOFNT '.1PEI2.A*/) 

TF(tTRAO*Ea*3)NRtTf(A«20A3) 

!OA1 FnRNATOOt.AABSORPTION ANp SCATTERING COEFFICIENTS C AICUIATFO*/ ) 
TF(MSPnT.fQ.CI(’’0 TO AOI 
MRTTE(fc*PrAAItPPAPT< n *t")*NPART) 

I 60 


ASTEP 

ASTEP 

ASTfP 

ASTEP 

ASTEP 

ASTEP 

ASTEP 

ASTFP 

COHNFNT 

ASTFP 

ASTEP 

ASTEP 

ASTEP 

ASTEP 

aster 

ASTEP 

ASTEP 

ASTEP 

ASTEP 

ASTcP 

ASTER 

ASTFP 

ASTEP 

ASTEP 

ASTEP 

ASTEP 

ASTFP 

ASTEP 

ASTEP 

ASTEP 

ASTER 

ASTER 

aster 

ASTER 

ASTEP 

ASTEP 

ASTFP 

ASTFR 

ASTEP 

ASTEP 

ASTEP 

ASTFP 

SOOT 

SOOT 

AL 

AL 

SOOT 

SOOT 

SOOT 

SPOT 


99 

60 

61 

62 

63 

6A 

69 

66 

17 

67 
6B 

69 

70 

71 

72 

73 
7A 
79 

76 

77 
76 
79 
BO 
ai 

A2 

83 

BA 

B9 

86 

07 

68 
B9 

90 

91 

92 

93 
9A 
99 

96 

97 
9B 
99 
SI 

92 
2A3 
!A* 

93 
SA 
SB 
96 


ORIGJNAI 

or POOR QUAllTY 


fiOI>f1AT(>0)l**SQOT A'RTICtt OlAHfTiMCRICROKSJAf lME12.A»/» 
WttrE(6»20A1MPtACAm*I«l*IIRAATI 
2047 fOARAT(JO*f*REI.ATIVE FORRATIQH RATES — — — •♦If 9E12 »4» /» 
no 2040 T!*ltffAfT 
OfARTni»-l»OE-6*OfAfTni> 

2049 FRACf<in-0*€l*FRACfim 

MtlTF(6f2094)Aa^ARC0NNiFREXFS^ ARCONS#ALfHA»AAS*RB$tAAA^SOO#F^G# 
1 OnfAttCF 

2094 FORfATOOfrAFRE-EXfOHFNT (NUCLEI) •♦1FE12. 4#/ 


••♦IFF12.4#/ 
•♦1FE12.4^/ 
— •♦lMI2t4»/ 
—•♦imi.At/ 
•*tlFE12t4»/ 
•— •♦XFE12.4,/ 


1 30X#4ACTIWAT10N ENER6T (NUCLEI) 

2 aOX»4f*F«EXfONENT (SOOT) — 

» SOFfAACTIVATION ENEROV ($QOT) — 

4 30X»*TEffERATURE EXfQNENT (SOQT) 

9 30X#*FUEL EXfONENT (SOOT) 

A 90Xt*CXYGEN EXFONENT (SOOT) — 

T 30Xf«C0NSTANTS IN SOOT FORNATION -•♦7 

• 39X^*A ■ •♦lFEl2*4»9Xt*R > •♦1FE12*4^/ 

9 aOXf*CCNSTANTS IN NUCLEI FORNATION -•»/ 

1 39X^4F-6 • •*lFEU.4f9Xf*60 • *»1FE12*4»/ 

f 30X»*FARTICLE OENSITV •tlFE12»4^« 

WRITE ( 6 f 402 )ISOnTtSSOOTtCTNCF*TINCF 


K6/H3**/) 


402 FPRNAT(30X#*S00T CALCULATION STARTED AFTER ISTEF»«Et*t I3( 


CALCULATION AVFASSED 
LT.R*IPEB*2) 


IF CFO RATIO 


lSTEF.6E«F»I3t 


1 • OR SSUN*LF.R^lFE8*2/30Xf*SOOT 
1 LT,*ilPEB.2»* OR IF TENPERATURE 
401 CONTINUE 

IF(ITftAD»NE*l)WRITE(6#36S)IRAD*SRAD 
469 F0RNAT(30X»*RA0IATI0N INCLUPEO AFTER 
1 • OR SSUr'.LE**#lPER«2) 

IF( NNOX *NE. 0 )WRITE (6« *03) INOKiSNOXtTNOX 
403 F0RNAT(S0X^4NCX CALCULATIONS STARTED AFTER ISTEP.«E.*t I3f 

1 • OR SSUN.Lf<*^lPE0»2/3OXt«NOX CALCULATION BYPASSED IF TENPERATUR 
IE LT**>1PE6«2) 

NRirFI 6 » 2042 )(RCLAX(!)#I* 1 ^ 39 ) 

204» FORNAT (/PX»»RELAXATinN P ARANETERS'/BXt 21 ( IH-)/ (SX# 1P10E12.3) ) 
r.O TO (209C#2C91)» NOOEL 
WRITE(6f2092)(PR(I)#I-lf32) 

BO TO 2093 

WRITE (ef2092)(PREF(I)»I-lO2) 

FORNAT (/BX*'PRAN0TL NUNRERS’/OX* 19( 1H«)/(9X^IP10E12.3) ) 

CONTINUE 

WRITE (EtlOAA) (X(I )»t-UlPl) 

FORNAT (FBXi*X-COOR01NATES‘ FBX# 13( IM-)/ (9X# 1P10E12.3) ) 

WRITE ((f2046) R(l)f|Y(JI#J*2tNP|) 

2046 FORNXT ( FBX ♦ ‘T-COnROIN ATES* /NX *13(IH-) / (9Xt 1P10E12*3) ) 

WRTTF (f^204P) (2(K|*K-1>NP|) 

FORNAT (FBX»»Z-C(inROINATES'/BX»imH-)/(9X»lP10fl2.3)) 

CREATE INITIAL DATA TAPE 

RESTART OPTIONS 

IF (|RE$.FO«C) €0 TO 201 


2090 

2091 
20RP 
2093 

2044 


204R 
C ♦ 


202 


C — 


REWIND NTPl 

no 202 tI«U2 

READ (NTPl) 

— .. here PP 
READ (NTPl) 

HFPF OY 

READ (MPl) 

here U 


IS RHI 
PPfPrnu 
IS INTHALPT. 
OVtOh 

IS FXf V IS FT 


P IS NFU» OU IS NCO 


DW IS FAV 
W IS F2 


READ ;NTPn UtV*W 
Rf*0 (NT*H TINPfRHO 
RFA0(NTP1)FCH>EH2 
RfAO(NTPl)ANUC^SOOTl^SOOT2 
• EAoiNTPnrs 

-♦finSRPTICN AND SCATTERING COEFFICIENTS. 
OP 20? N-l.NPl 


SOOT 

97 

SOQT 

96 

SOOT 

90 

SOOT 

60 

SOOT 

61 

SOOT 

62 

SOOT 

63 

SOOT 

64 

SOOT 

69 

SOOT 

66 

SOOT 

67 

SOQT 

60 

SOOT 

69 

SOOT 

70 

SOOT 

71 

SOOT 

72 

SOOT 

73 

SOOT 

74 

SOOT 

79 

SOOT 

76 

SOOT 

77 

SOOT 

7B 

SOOT 

79 

SOOT 

BO 

SOOT 

B1 

SOOT 

B2 

SOOT 

B3 

SOOT 

B4 

NOX 

B2 

NQX 

R3 

NOX 

84 

NOX 

B9 

4STEP 

100 

AL 

246 

AL 

247 

4STEP 

101 

AL 

249 

4STEP 

102 

AL 

291 

AL 

292 

AL 

293 

AL 

294 

AL 

299 

AL 

296 

AL 

297 

AL 

29B 

AL 

299 

AL 

260 

AL 

261 

AL 

262 

AL 

263 

AL 

264 

AL 

269 

AL 

266 

AL 

267 

AL 

266 

AL 

269 

AL 

270 

AL 

271 

4STEP 

103 

SOQT 

9B 

NOX 

69 

CONNENT 

16 

RAD 

29 


161 




» 




tTY 


c 


c 


f 


c 


00 to) 

on 203 i-i»Lri 

*03 SCflMI»J»B»-SCATI» 
RETURN 

tftO RRRRVS 
201 DO 204 NV«l»tl 
00 204 K«1*NR1 
DO 204 J«1»NR1 
«JH-KR{R)*JNU» 
on 204 I>1»LP1 
A««R(T»J*RI>«R$aR 
SCTRtItJ»R)-SCATR 
IR*KJN«I 
204 F||.R»NV).0. 

OQ 204 R>2»N 
00 209 J>2»N 
4 JN«KM(Fl 4 j 2 t Jl 
00 209 1«2»L 


original ^ 

OF POOR QUALITY 


L 2 «KJN«I 

— — 32ECTPS CONCENTRATIONS. 

00 20 T INV*LVa 2 flV 0 N 
20? FfL2.!HV»«l,F-l9 
Mt2.NVSll*l.E«S 
Fa2.NNS2)-l.E-6 
209 FU.**NVN)-I.Ee 

U*V*W AND PRESSURE 

00 491 R« 1 ,NP 1 

00 491 J« 2 »N 

tS*tWltU. 4 l 

IE*INIQ( 4»41 

no 491 I*IS»tE 

12 (l.fO.lSI 60 TO 492 

IMIi J. R)*UlN<t> 

A 92 N<I»J*K). 0.0 

IF (J.E 0 .JMLin. 4 )*ll 60 TO 491 
VM*J*KI> 0.0 
491 CONTINUE 

IF tIPAR.E 0 . 2 l 60 10 299 
no 20 « K-t.NPl 
00 200 J- 1 . 2 P 1 
T$-IWltt J. 9 I 
IE>IMIC(J* 9 I 
on 200 I»IS»If 
200 Afl.J.IO-PReSS 


ROUNTRY RCDES 

299 00 240 K-l.NPl 

IF tinN.EO.il 60 TO 241 
no 242 loS.LPl 
J-JWLM1.4I 
UCf. J.RI-' INtll 
*4* rONTINllF 
*41 cnNTINUF 

no 244 J>JSM1.JSW2 
flNLI tj.4l>l 
UIT*1. J.RI-USM 
VII.J.Rt-VSN 
*44 VtI.j4l*R|*VSN 
*4? coNTiNUi; 

no 249 J«lfNPl 
I-IWLnu»4l4l 

IF I J.iF.JWOt.OR.i.OE.JWOOl 60 TO 249 
lilt* J.4l«UtI-l*i»R| 

*44 CrOTTNUF 


lt >2 


RAO 

RAD 

RAO 

RAO 

AL 

At 

4STEP 

AL 

AL 

AL 

AL 

RAD 

RAO 

AL 

AL 

SOOT 

SOOT 

SOOT 

SOOT 

SOOT 

CDNNENT 

NOR 

NOR 

SOOT 

SOOT 

SOOT 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

SOOT 

AL 

SOOT 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 


26 

27 

26 

29 
272 

275 
104 
2T9 

276 

277 
27R 

30 

31 
279 
2 R 0 

90 

91 

92 

93 

94 
19 

91 

92 
99 

96 

97 

291 
202 

203 

204 
209 
206 
207 
200 

90 

290 

99 

292 

293 

294 
299 

296 

297 
290 

299 

300 

301 

302 

303 

304 
309 

306 

307 
300 

309 

310 

311 

312 

313 

314 
319 

316 

317 
310 


r 

c 


c 


INJFCTlflN JOINTS 

FUN CCOLINfi SLOTS. 

If tNUlNJ.Lf.OI CD TO 240 
00 24ft IT*l.ftUtNJ 
i-iuiMjim 
j"iuiNj(in 
UlI.J.Fl-UINJIin 

144 wn-l»J.K)«MUlNjai» 

240 CONTtNUi 

OllUfICN jets* 

IF (NVtNJ.Li.O) 60 TO 249 
on 290 II*1.NVINJ 

T>tviNjitn 

j«jviNiun 


oniGfMAL 
OF POOR 


X«KVINJ(in 

v(r«j«K)*vnijun 

IF <J.Ffl.JNlIU*4l> Vlt*m«K|l-tflNi<in 
290 CWTINUf 
»49 CONTINUF 

4 F 9 IND NTFl 

WRITE IWTtll U*V>W*R 


Pf.C.2 ts 

QUALITY 


c TUREULENT KINETIC EMER6T AND DISSIFATION 

no AST Ktl.NFl 
00 410 J-S>NF1 
RJN.RN(K»4iMJ| 

IS>lWLtlJ*9) 

IE*lWin(J.9» 

DO 410 I*IS»1E 
IF-RJN*! 

FILR»NWK»*FK 

flv*r( Jwin<i*4ii«Yiji 

IF IIOM.EC.lt nr*ANlNl(T(JML0n»4tt-r<J)«YUt-YUMLni»4lll 

OY-ANAKIIPT.O.I 

AL«ALFAC*DV 

410 P(lR»NMOt«CO*FK**1.9/IAL4l.E>IOI 
Off 779 J-JSMltJSM2 
lF.KH(R)4jH(J|«lHm J»4I*1 
779 F(LR>NV0t*C0ftFK4*1.9/AttN 
C-— INJECTION OOTOTS. 

C fit* COOL 1 06 SLOTS. 

IF INUIOJ.LE.Ot 60 TO 4S7 
no 270 II-l.NUINJ 
t-iuiNjmt-1 

J-JUINJ(Il) 
iR.RN|K|«JO( JI4I 

F(LF.NV|t|-AKFAC*((ltNJ(Il )«*24WUINJII1 t«*2t 
AL-ALFACftYSI Jl 

270 F(L».NVDI*Cn4F(LP>NYKt 4*1,9/ tAL»l.E>SOI 
437 CONTINUE 
C-— DILUTION JETS. 

IF {NV1NJ,LE.CI 60 TO 272 

DO 274 lI»ltNVtNJ 

T«lVTNJ<ttt 

J-JVINJtllt 

KMYiNjnn 

lP*KNtKt*JNUI*I 

Fll P,NVKt"F«INJ(Itl 

7 74 F(LP.NVDt>C04F(LP»NYKt**l.S/tnVtNJUl t« l.E-SOt 
*7? CONTINUE 

r HiPf PP IS KF. P IS DISSIPATION 

WRTTf (NTPII PP.P 


r PHI.FUFL.CQ AND TENP 

no 404 K*1»NP1 


AL 

319 

CONNENT 

20 

AL 

320 

AL 

321 

AL 

322 

AL 

321 

AL 

324 

AL 

329 

AL 

32ft 

AL 

327 

CONNENT 

21 

AL 

3211 

AL 

329 

AL 

390 

AL 

331 

AL 

332 

AL 

333 

AL 

334 

AL 

339 

AL 

316 

AL 

337 

AL 

330 

AL 

339 

AL 

340 

AL 

341 

AL 

342 

AL 

343 

AL 

344 

AL 

349 

AL 

34ft 

AL 

347 

AL 

340 

AL 

349 

AL 

390 

AL 

991 

AL 

392 

AL 

393 

AL 

394 

AL 

399 

CONNENT 

22 

CONNENT 

23 

AL 

39ft 

AL 

397 

AL 

390 

AL 

399 

AL 

360 

AL 

361 

AL 

362 

AL 

363 

AL 

364 

CONNENT 

24 

AL 

369 

AL 

366 

AL 

367 

AL 

360 

AL 

369 

AL 

370 

AL 

371 

AL 

372 

AL 

373 

AL 

374 

AL 

379 

AL 

376 

AL 

477 


16 






OUic.:iJ./u PAGE 13 
no 404 OF POOR QUALITY 

T$-IWlI(i»9) 

ie-iwic(j#4) 

00 406 

lP»Kjn«t 

406 P(L»»MVTFI"Tf»im 
If*IMLlU»4t 
IF>tWlOU*4l 
no 404 I*IS*IF 

P(LP*MVfUOX)-FUOX(n 

F(lP»HVHI>-FUFCO 
404 P(LP*NVCC)*PUPCO 
c ....^nUNOOV NODES 
00 4«!l PklfNPl 
00 POO 1*1«LP1 
J«JULItI*4l 
LP>KN(Pt4Jp(J)4l 
IF (I0N.E0«0) 60 TO 217 
TFNP(f«J,tt)>TCVlW 
IP (J.EOtl) 60 TO 200 
TFNP(I»J*K)>T1NIM 
206 FllP»N\(fUnx»* 0 . 

FdP.NVFUJ-O. 

F(LP*NVCO»>Ot 
P(LP*NVCH)*0.0 
P(IP*NVH2)-0*0 
60 TO 216 

>17 TENP«l»J»K».TINm 
F(IP*NVFU0XI«FU0X(I> 

FFXlT«FOOX<n*R4Tt024(l.-FUOX(m/RATI01 

PtLP.NVFU»«ANA*l(fEXlT»O.I 

P«lP»NVCC»«0, 

FdPf NVCH)i0.0 
FH»»NVH2W0*0 
214 J-iWLnCI.4l 

LP«KNtX|4JMJ|*I 
TEMP(t»JfKI-TCTLN 
tP (J.EO.NPn 60 TO 444 
TF«P(I»JtK|-TINLN 
444 F(LP>NVFU>«0. 
p(LP.NVCOMO. 

F(lP*NVCH»<iOtO 
Ptl>*NVH2t-fl.O 
206 F(lP«NVFUOXt*0* 
on 210 J*1>PP1 
IMNLT CJ»4»-1 
IP««N(K)41P(J)4I 

IF U.fF.JSNI.AN0.J.lE,JSN2l 60 TO 212 

TENP(I,j,tr|>TINlN 

PUP*N«PUQK»>0. 

P(IP(HVFUI*Q. 

F«lP*NVC0»«0. 

FUP,NVCH|«0.0 
F(LP*nvh 2)*0.C 
on TO 213 

»i> tfnm!,j»ih.tsn 

F(IP*NVFII0XI*PUDXSW 
pup»Nvrui«FUPSN 
PRP*NVrPt-0, 

F(IP«NVCH»*0,0 


AL 

AL 

Ai 

At 

AL 

AL 

AL 

AL 

At 

AL 

AL 

AL 

AL 

4$TEP 

4STEP 

Ai 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

4STEP 

4STEP 

AL 

AL 

AL 

AI 

AL 

AL 

4STCP 

4STEP 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

4STEP 

4STEP 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

At 

AL 

4STEP 

4STEP 

AL 

AL 

AL 

AL 

AL 

4STEP 


370 

379 

330 
361 

331 
311 
334 
339 
383 
337 
333 
309 

390 
109 
100 

391 

392 

393 
390 
399 

396 

397 
393 

399 

400 

401 

402 

403 
107 
100 

404 
409 

406 

407 
400 

409 

109 

110 

410 

411 

412 

413 

414 
419 

416 
111 
112 

417 
410 

419 

420 

421 

422 

423 

424 
429 

113 

114 

426 

427 
420 

429 

430 
119 


164 


1 


PaqC It 

^ POOR 


2ia i-iwLn(j*4i«i 

Xr (J.CT.<IMOI.AND.J.Lf*4HQO| 60 TO 214 

F(L^»N«FUOXt-E* 

FaF»N«FUI-0* 

FaFtHVC0>-0. 

F(LF»NVCHi-0.0 
F(LF*NVt42l>0.0 
GP TO 210 

214 PU.F»NVFUQK>"FUOX(Lm 

FEKtr«FU0K(|.Fl)-RATIO2*(l.-FU0XU.m)/RATIQl 
Ftl.F*NVFUI*APAXl<FFRIT»O.I 
FaF»NVTe>"nMi) 

FILFpNVrOt.O. 

F(LF»NVCH)-0.0 
FaF*NVK2)>0.0 
210 COMTINUF 
C — -IMJECTIOtl FOIFTS 
C— — FUH r00llf(« UflTS. 

IF (NUINJ.IE.OI GO TO 469 
00 214 n«l*HUINJ 
l*lUINJ(lt|>l 

LF*KN(K)*JP(J|«t 
FUF»NVFU0X>-0« 

F(lF»NVFy|«C. 

F<lF»NVCC)«0. 

FUF»NVCM|*0,0 
F(LF*NVP2).0.0 

219 TEOF(I(J*R)aTU!NJ«m 
444 CONTtNUF 
C—— dilution JITS. 

TP (NVINJ.ll.C) 60 TO 220 
DO 222 II-l.NUINJ 
I-tVtNJtll) 

J-JVINJfin 
K-KVtNjnn 
LPaKN|Ft«JttfJ)«l 
P(IP*NVFUOXI>0. 

F«LP.NVFU»«0. 

MLPtNVCr)*0. 

P(LP.NVCN|>0.0 
PUP.NVH2«*0.0 
22? TFNPtl.j.KWTVINjnn 
220 CONTINUE 

C — here FP is PHI. P IS NFU AND DU IS HCO 

MRITF (NTPt) PPtPtDU 

f Inthalft 

DO 2T6 X-l.NPl 
00 274 Jol.NPl 
I$-TNLI« J*9I 
tF«IWLO(J*S) 

KJN.rn(xi«jp(j| 

OP 276 I-IS.IE 
IP*RJN«! 

T«T|NP(I»J»X» 

PUn»MlP»N«FUCXt-FUP*NVFUt 

FLPOR«KATICl«F(LP*NVFU)*RATI01«F<lP»NVCO»PRATI02-(«ATIQURATt02t* 
1 FUP*NVFU0X)«PATt094PliP.NVCH>4RATI064FtLP»NVH2| 
FLPQX-ANAXHFLP0X»0.> 

FLPH2O*0.4*NH20*fHYr*PUft/NFU'RATI074F(LP»HVCN|-F(iP«NVN2»t 

Fl?Cn2«NCP2*{fXX4FllA/Nru-CXX*MLf»N4CH»/tlCM-FUP«N4COI2NCO» 




4STIP 

116 

AL 

4tl 

AL 

4S2 

AL 

4SS 

AL 

414 

AL 

4S9 

AL 

4S6 

AL 

417 

4STIF 

117 

4STEP 

110 

AL 

430 

AL 

439 

AL 

440 

AL 

441 

AL 

442 

AL 

443 

4STEP 

114 

4STEP 

120 

AL 

444 

AL 

449 

CQNMENT 

29 

AL 

446 

AL 

447 

AL 

449 

AL 

444 

AL 

490 

AL 

491 

AL 

492 

AL 

493 

4STEP 

121 

4STEP 

122 

AL 

494 

AL 

499 

C0HNENT 

26 

AL 

496 

AL 

497 

AL 

499 

AL 

494 

AL 

460 

AL 

461 

AL 

462 

AL 

463 

AL 

464 

4STEP 

123 

4$TE» 

124 

AL 

469 

AL 

466 

AL 

467 

AL 

469 

AL 

469 

AL 

470 

AL 

4Tl 

AL 

472 

AL 

473 

AL 

474 

AL 

479 

AL 

476 

AL 

477 

AL 

470 

AL 

474 

4STEP 

129 

AL 

491 

4STEP 

126 

4STEP 

127 


J65 


FLPN?-l,-FILf.HVFU>-Ft«0J-Faii»N¥CQ»-ftPQ>(-K^H2O 

l'*F(LF»NVCMt-F<lP»r4VH2| 

THCFS-1 
N?l»f OFU 
N^»«!DCr? 

TK-T 

TKtNV«X.OOO/T«( 

F^U»iIOfU)-F(tF*HVFU| 

FSU»*IDa?>-FLFO« 

FSUP»inHn.FlF(*? 
f iM»*10CP)"FUF*NVCnt 
FX(LF,tOCH)»F<lP.NVCH| 

FSaP*lDH2)>F(iP*NV»l2» 

Ff (LP»IDH20)>FIPH20 
F5«tP»|t)CC?»-FlPCP? 
on ?T7 n»NSl»H$2 
?77 ^2(in-FS(iP«nwsNM(!n 
f*U MCPS 

HPI«HSUP*tMCCN*TR 
FaP*NVH)«H.M 
*76 COMTIMUF 

C FX,FY»F2 AND FAY 

Oa 701 K-UNPJ 
00 7«1 J«1#PP1 
KJH*Kh(Fl4jF(J) 

ts>iwm j*9i 

I€«tWlO(J(6l 
00 701 l«IS.If 
LP-KJM4I 

ST«*SIGPA4iTEPP( 1*J»K1«*4 
FaP#NVPXI-ST4 
F(tP.NVP7)»ST4 
F(tP»NWP?l-ST4 
701 MlP4MVF«Yi*STA 

c — HFOF nv IS tNTMAlPY* OK IS FAV 

MRITF (FTPll DVfDO 

c here « IS F*» V IS FV» W IS FI 

WRITE fHTPll U»V*V 
WRtTF IHTPI ITEPP»RHO 

C SPFCIFS AND SCOT CONCENTRATIONS. 

WRTTFTNTPl IFCH.FH? 

MBITF(HTPlMNUC.SrCTl.SOOT2 

WRITEtNTPllFS 

RETURN 


166 


ENi) 

SURRnUTINE AUNflO 

rOWNQN F(600»Tl>OU(lQ.10t9I.OV<10»10i 9 I 4 DUI 10»10*9>» 

ANUC (10* 10*9 1.SOOTmOt 10*91 *SaOT2fiO»10»9)*FCH(lO* 10*91* 

FH2( 10*10*9 l*FS(900»14)* 

Rwnt 1C*10* 9 )*VTSC( 10* 10*91* ARSRt 10*10*91* SCTRI 10*10*9 1* 
SU(10»10>*SPUOtlO)*ORHnpP(10»10*91* 
4XP<10*101*At(M(io*10)*AVP(10)10l*AYN(10*101*A:P(10»101* 
A7Nno*io)*mio*io)*cv(ioi»ciu(io*ioi*CYU(ioi. 

^ ri»(10*10l*CYP(10l*OIV0<10*|Ol*NTPl*NTP2 

l.AVNKT 102) *AXPKn02)*AYHK(1021*AYPK( 1921* AZNK(1021*A2PK<mi* 

? S0KU021.SPR(1021 

DI«fNStfN U( 10* 10*91* Vt 10*10* 9 1*W( 10*10*91 *PP(1C*10*91 
OTNFnSIPN P (10*10*9 l.TFNP (10*10*9 l*eAN(10*10*91 
FOUIVAIENCE (F( 1*11*U( 1*1*1) 1*(F (1*21*9(1*1*1 r 1*(F (1*31 *M(l*l*ltl 
EOUtVAifNCF (F(1*41*PP(1*1*11)*(F(1*3 ).f(i.i,;^I) 

FOUIVAIFNCF (F( 1*61, TENP( 1 * 1 . 1 11* (F(1»71»6AN(1* 1*1)1 

CnNNON(CYl/R(30)»RN(30).RP9t301*YSR(301*YS9R)301*rPlAK 

rpi**.nN/FRip/x(40»,¥(30)*M10).XS(401*YS(101*lS(301.*SU(40l, 

1 7tVOCt*;swO01**ntP(401*YDIF(301*I0IF(t01*FRP(401*FXN(401* 


AL 

♦ «♦ 

4STEP 

120 

NOR 

93 

NOX 

9A 

NOX 

99 

NOR 

96 

NOX 

97 

NOR 

96 

NOR 

99 

NOR 

100 

NOR 

101 

♦ STEP 

129 

4STFP 

130 

NOR 

102 

NOR 

103 

NOR 

109 

NOX 

109 

NOX 

100 

NOR 

107 

U 

♦a? 

AL 

♦ 66 

AL 

♦ 69 

AL 

♦ 90 

AL 

♦ 91 

AL 

♦ 92 

AL 

♦93 

AL 

♦99 

AL 

♦ 99 

AL 

♦ 90 

AL 

♦ 97 

AL 

♦96 

AL 

♦ 99 

U 

900 

AL 

901 

AL 

902 

AL 

903 

AL 

909 

AL 

909 

SOOT 

100 

CONNENT 

27 

4STEP 

131 

SQCT 

101 

NOX 

106 

AL 

906 

AL 

907 

AL 

906 

CONFA 

2 

4STEP 

1 

♦ STEP 

2 

RAO 

1 

RAO 

2 

CONFA 

♦ 

CONFA 

9 

CONFA 

6 

CrONA 

1 

CTONA 

2 

CONFA 

7 

CONFA 

6 

CONFA 

9 

CONFA 

10 

CONFA 

11 

CONNON 

2 

cqnndn 

3 

CONNON 

♦ 


ORIGIN/ I ( '■'v ' r 
OF POOR 0 '*ALIIY 


2 FVPOOi*FVn(30|.FrP(aO>>F2H(SOI>Or*TIHE 
cn»<«nN 

IFCIMOF«MDCO, IOFU»|002»fDH2.IflH20»IOC02*IOHl»IDH2>10Ml*IONQ. inNO? 
1* IDO* IorH>IHCFS»|LC*UH*It*AT»ITER» J2Jt>U*Nt>Na*M»NGLaA»NCL0Hf>» 
t Nin,NO>NSPthSl»NS2*!OrH 

J/CCMF*tI/CM«P.HSU«»F0»(*PlH»A6*f,«fiA$IN,fHlH¥,TMIiV*TtH.tM6 
«/CPA>AP/AfUS(]O*a>*EHVtERtHSUnO*i«0fRUfi»NS*PA,ae*OU«2»0|»<)4»R>1OPP* 
A S**»SPMO0i*SP0*aH30)*S2l)0)tT«(*LADIA«*L0EBUfi*LEaUlL»L(lEACT* 

A lENFR*FDKt J*LCOHV6 

OOUBtE PBFcniCH CPSURtEnV* Fftt FO. HSUBO»HSUP»f A« BflR»gO*flltQ2*d1» 

1 OA.«r.AS»BCASIN»BHnPF.SN»SNIHVtSNW*n»S 2 tT«(»|l(INVffLHiSP 0 

2»FIIT.FSI 

CaHRON/STFFA/FERFUFFKF2*FEKFS*PERM*EBX«EB2*f|t|«ERA*CEBUlfCMU2* 

1 CFBU3*CFBUAf AERFlf AERP2*AERPa*AERPA*BERPl*BERf2f BCXP9»nERPA* 

2 CFRPl»CERP2*CERFa*CIR2A»FUT*FSr 
LOTjICAL I.ADiAB*LCONV6*LOEBUfi*LEaUIE»lHB6*UtEACt»LEtiER 
COA«OHFIRT/l,F»N»lCV»"CV.NC¥»lRl#BRltHn*NI,HJ,«K,HINJ,N|tNJNtt.t<», 

1 NNV*NCI)rO»R*lSrR«JSTRtKSrR»HVR(i9)»R(MaOI»4fnO)»ISTFf» 

3 NRHa*NGAP»IWLM 30*9 30*9) »4ML0(A0*9)*JNLtlA0t9>»tM>;t« 

A l¥bQ*rHl*JHlT»JMia*JMQI*JMOQ*IPM*4RtNnO*aOI*IRnMAO*9'* 

CO*»POHMPOFRMPAR*LMFF»ISTUN*|NCO«R*ITI»AO,N¥»R,N¥l»Y*N¥M*JFtAHC 
l*PlAXPl»i¥K>lV0*t.VFU0R*lVFU*I.VC0*LVH*LV«R*|.VRY*|.¥Rt*N¥Fn2)« 

2 tJURP*tRFS*TITlF2(20),IHAX. J»1AR*KHAX.HVC0*FURCQ*N¥H20»H¥C0t* 

3 HYN2*HVCM*WVH2 

C0NF)ON/CWOR/t¥Hl*tWH2*l¥Nl»l¥NQ*iVNO2*L¥Q*t¥0M*tVH2O*L¥N2»l¥O2* 

1 lVC02*l«FUl*tVCQl.NNaR*INQX*!TNOX*9NOR*TNOR 
CO*AOH/TMFPF/RVM»tiiVFU*N¥OX*NVFUOX*F!VTE.fmDm*10R*fSTOIC*HFO*CF* 

1 «A$CPH*RHnCCN*UNICOM*FRESS*HVFAV*TCYI.¥.TINm*mF* ACOEF(A)* 

2 TA*0FAC*NFU*¥C02«WCO*W0R*MH20*WN2*HYY»CXR*RATIOl»RAriQ2* 

3 RAri03*RATtCA*HCO*TAN*ITMAU 
COX«ON/CTOPA/REND*!CTOPA<32» 

CaXRON/PIS/AP|J.PEN*SAAX*S$UP*l,ASTER*«TC6XT»CFR»6PISR*ERISIH* 

1 F«I^R*TOUT*RTCC*EH!*RAOINtRAnSUR*fnA«FK*SQFK* 

2 FkFU*FPFU*TFUEL*WFN 2*F10( AO) *TEnTRFAO)*i<( AO)*FUEL< AO )»FOQX( AO) * 
2 UTN(A€)*TIN<A0)(FUEiS(A0)*SEXIT*I6ANl(29)*I€AR2(29) 

CO"RaM/TURB/NYR*NYO.Cl»C2*CO*AK*OOIOXJ«3.3)*ARFAC*AtfAC* 

1 Nn0EL*RRO2)*RREF(32)*RJAYO2)*E 
CO"RO«/RAn/NVE*SlGAA.ABSOR*SCATR 

COHPDN/RE*CI/ARCON1*PREXP1»CR1*ARCQN2*FREXR2*CR2»ROD£R 
COMMON/pROPL/EVAR(192)*XTPA*»)FN2*xa<3)*YO(3>*I(l(3)*ALFA(3)* 

1 «eTA»3),0ELTA(3),THETAn3).TMETA2l3)*NSU3)*WFF<3).':Rn«9)* 

2 VFUEU3)*RFUFM3)*EYSU(6A)*HL-VAR 

CO*1AnN/lNJEC/FiaMIN*tUtNJ(20)*4UINJ(20)»UtNJI20)*MUlNJ(20)* 

1 AUINJ(20|,TtJt)««(20l*IVtNJC20)*4VIN4ftO)*RV{M4l20)*VtNJ<20)* 

2 EVINJI?Ot*nVfNJ(20)*AYlFlJ<20)*TYIMJI20)iNUIN4»NVtN4*J$Ml*4SH2* 

3 a$M*V5H*AFSti*FSM*TSM*WS¥*S'YR0*RKQSN 

CORROR/CSOOt/fiV«.HVSl.MVS2*!$OOY*SSOOT*MSOOT*AO*ARCOHN*AAA,e(IB*Fn€ 
X.GO*APART*OPARTI2)»FRACRI2»*RMOf*ARCONS*MEX#S*AlRMA.AAS»BBS.l>MR 
2»LYN*lVSl*LVS2*CINCR*TtNCFrFUTOT 
CaNAQN/CRAO/IRAO*SRAO 

COPnON/CFOURFPRfXP3.ARCOH3*CRa,PREXPA*ARCONA*CRA*AAl*001.CCl. 

1 AA2«A92*CC2*AA3*|iA3*CC3*AAA.nRA*CCA*RArt09*RATn]6»RAriGT* 

2 PATTOP*RATt09*RATQI0*RATC)ilfRATO12*NCH*NH2*MC2MA*LYCH*LYCHl*I.VH21 

«• ** •• •• 414 44 44 44 44 44 44 44 4 

ENTRY FPOO 

— -FNTRY FNCO tS USED TO UFOATI BOUNOARV YAIUES AND TO IIRIT 
AFFCIFS PASS fractions TO itE BETWEEN 0.0 AND 1,0. 

NYFF-NYFINV) 

IF(NV.Hf.iVN)ca TO 12X0 
NUCtfl CONCENTRATtOH, 
on )?n R-2,N 
OP 1211 J«2,fi 
A J""KP(PI+4P»J) 




COMHON 

9 

NPX 

2 

NQX 

3 

NOX 

A 

ASTFR 

1 

NOX 

6 

NQX 

7 

NOR 

B 

NOR 

9 

NOR 

IJ 

NOR 

11 

ASTER 

4 

ASTER 

9 

ASTER 

« 

ASTER 

7 

NQX 

12 

CQROPN 

A 

ASTER 

B 

ASTER 

9 

CONRQN 

9 

CORNON 

10 

CORNON 

11 

ASTER 

10 

CQRBON 

u 

ASTER 

11 

NOR 

lA 

NQX 

17 

cqnnon 

19 

CQNNON 

lA 

CQNNON 

17 

CQNNON 

le 

ASTIR 

12 

C0N6FN 

2 

CQN6EN 

3 

CONGEN 

A 

ASTER 

13 

CQNGEN 

A 

ASTER 

lA 

CONGEN 

a 

CONGEN 

9 

CONGEN 

10 

CONGEN 

11 

CONGEN 

12 

CONGEN 

13 

CQNGEN 

lA 

CONGEN 

19 

CONGEN 

lA 

SOOT 

e 

SOOT 

9 

SOOT 

10 

SOOT 

11 

ASTER 

19 

ASTER 

lA 

ASTER 

17 

Ai 

912 

Al 

913 

CONNENT 

2B 

CONNFNT 

29 

AL 

91A 

SOOT 

102 

CONNENT 

30 

SOOT 

MI3 

SOOT 

lOA 

SOOT 

109 


ORfCf'.'rv noc is 

or F'COS- , aiTY 


167 


00 12U I>2iL 
UP-XJK4I 

l?lt f Ct«»*NVfn«*P*KUF»lLO,HVFf 
i»l0 tF«HW,tT.tVJUa».PV.eT.LVS2>fi0 TO mo 
r— SOOT COWrTHT»»TlDP. 
on nil 
no im i«ZfP 
KJP««H(K»4JP(i) 

DO un X»2»t 
L*»KJH41 

F(tP*NVfF >»*P*JIHFUF»NVFF»»*.I-30I 
mi F(t*»NVFFl«APIHnF<LF»N»FF>»1.0l 

mo roHTTHUf 

c ST1PET0T AXIS UP0ATIN6* 

tF(NV.E0*2)Fr TO 10A4 
00 1009 J*1*PP1 
00 1009 K»2»H 
LP-LPUJPU>*Ff'«K» 

IPW*LP"1 

1009 FaP»NVFF>-FUFM*H¥FFI 
IF( IDW.WFaOIFC TO lOAA 
00 1000 I*2»LP1 
00 lOPA K-2iN 
LP«T4KP(K| 

IP»*-LP*JPC2» 

1006 F(lPtMVFF)>F(LPN»NVFFl 

r CYCLIC OmiHDART CONDITIONS 

1066 on 1002 J«1*NP1 
OC 100? T>1*IP1 
tU«T6JP<J» 

LP2-I6JP( J)4PF(2I 
LPN«LIJ4KP<N) 

LP*l»l.ltJ4KN(HPlt 
P»t I J»6VFF »«FUPH#NWFF» 
eHPMPl»NVF‘F>«FUP2*NVFFI 
1002 COKTIHUf 
1001 CP*<TTNOf 

1F(NV.KE.LVFUOXI£0 TO 1010 
C— — NtXTUPF FPACTION* 
on 1020 •'•IfNPl 
00 102C 4-1. PPl 
KJP-KM(Rt4jPI Jt 
00 102C l>l*tPl 

t,P.KJP4l 

FllPf N¥FF|-tNAXlCF(LP»NVFFttO.I 
F (L PfNVFF )■A•'INl(F(LP»NVf FltlcO) 

1020 CONTIPIF 

fiO TO 1C36 

1010 TF(NV«hE,L¥FU)00 TO 1030 
r^<.-.-F|JFl CCNceNTRATICN, 
no 1031 P»1»NP1 
00 1031 J»l»PPl 
KJNaKP(X)4jPIJ) 

DO 1031 nitlPl 
tT«KJP4T 

F(LP»NVfF*«APINl!FUP»NVFFI»FaP»N¥FUOX»» 
1031 c(IP«N¥FF 1>APAU<F(LP*NVFF|*0.0> 
nn TO ic3f 

1030 IFtNV.NEiLVCHlOO TO 1032 
r~.— ~TNTFPPfPlATE HTPPQC6PB0N CONCENTt ATION* 
nn 1033 P«1»NP1 
no ion j»i»ppl 

KiNi>KMR)44P( J| 

nr 1033 T«i»tFi 

1 f'H 


SOOT 

106 

SOOT 

lOT 

SOOT 

lOP 

SOOT 

ION 

CONNENT 

31 

SOOT 

110 

SOOT 

111 

SOOT 

112 

SOOT 

113 

SOOT 

116 

SOOT 

119 

SOOT 

UN 

SOOT 

117 

CONNENT 

32 

NASA3 

11 

NASA! 

12 

NASAX 

13 

NASAX 

16 

NASAX 

19 

NASAX 

16 

NASAX 

17 

NASAX 

10 

NASAX 

10 

NASAX 

20 

NASAX 

21 

NASAX 

22 

AL 

919 

Al 

316 

AL 

917 

AL 

910 

AL 

9l« 

AL 

920 

AL 

321 

AL 

922 

AL 

323 

AL 

926 

AL 

929 

6STEP 

132 

CONNE**T 

33 

AL 

92T 

AL 

62" 

AL 

920 

AL 

930 

AL 

931 

AL 

932 

ASTtP 

133 

AL 

536 

6STEP 

136 

ASTfcP 

139 

CONNENT 

36 

6STE» 

136 

6STEP 

137 

6STEP 

130 

6STEP 

130 

6STEP 

160 

6STEP 

161 

6STEP 

162 

6STEP 

163 

6STEP 

166 

CONNENT 

39 

ASTfP 

169 

6STEP 

166 

6STEP 

167 

ASfFP 

160 


ORIGINAL PAGE IS 
OF POOR QUALITY 



i.P>KJA*l 

4STEP 

M9 


l■UF*NVFFI•AN3Nl(FUP•Nl«FFI«KATIao•IFUF*NVFUDIl»••FUF»NVFum 

ASTfP 

no 

1033 

rllP»NVFF»«AnAlilF<LP*NVFF 

HAR2 

1 


UO TO lw^6 

ASTEP 

152 

A\ni 

IFlNV.Ni.kVOUIUU TO 103A 

ASTIP 

151 

c 

LU CUNCENfRAIION. 

CONHENT 

36 


IQ 103b R-1»NP1 

ASTIP 

13A 


JO 1031 0*1«NP1 

ASTEP 

T13 


KlN«KI1(AI*jn(JI 

ASTEP 

116 


OO 103> 1-1(LP1 

ASTEP 

157 


lP«KJN*1 

ASTFP 

15a 


r(LP*NVFFl>A/11Nl(FUPt(<vFF l>RATiaAP(Fll.PfNVFUOXI-F(LP«NVFUI 1 

ASTEP 

ISO 

1 

•’RAiail*F(LP#NVCHn 

AiTEP 

160 

103) 

F(LPfNVFF)*At1AKllFILP(NVPFI*l«0E"ll 

FIAR2 

2 


OU TO iuib 

ASTEP 

162 

1039 

lFINV»Ni;.I.PHaiOiJ TO 1036 

ASTFP 

Itl 


>12 CUNCkNfRAriON. 

CONHENT 

37 


OU 1037 K-i«MPl 

ASTEP 

16A 


JO 1037 JxlfNPl 

ASTEP 

165 


KJN-KN(K)A JN( J> 

ASTEP 

U6 


JO 1037 1-ifLPl 

ASTEP 

167 


lP«KJI1i1 

ASTEP 

16B 


F(LP>HVFFt*ANl(11IFtLP*hVFF»»RAI109A(F(LP4NVF00K)-F(LP»NVF0n 

ASTEP 

169 


-RATU10PF(i.PtNtfCHn 

ASTEP 

170 

4037 

F(LP»NVFF)«ARAXl(FlLPrNVFF)*l40E-6) 

RARE 

3 

X03b 

CONTINOI 

ASTEP 

172 


RETURN 

AL 

5 36 

C •• 


P AL 

537 


cNTHT VUNOD 

AL 

539 

C. VckflOt) U ViSfcO FUK ¥ElOC 1T7 IIOOtFlCATlONSi 

CONPENT 

39 

c 


CONRENT 

39 

C*"“- 

‘iNTROOUCc HKl OHAOUALLT. 

CQRHENT 

AO 


JO 1010 K-lfNPl 

AL 

519 


JO lOOU J-Jl«l*16tt2 

AL 

lAO 


«lN-wS0*RU)/rtUlN2» 

AL 

5A1 


l-lMLllJpA.^-1 

AL 

5A2 


JUt J»K)>aUpJ»K)«.03*01N 

AL 

5A3 


tF (ASSlAdpJfRl ) .OT.AOKNlNn U(1 pJ»K»-M1N 

AL 

599 

400U 

CONTINUE 

AL 

595 

1103 

continue 

AL 

596 


JO 2001 J«2*N 

AL 

197 


JU 2wOl l«2i(. 

Ac 

ILP 


n(1»Jp2)-a(1»3pNP1I 

Ak 

199 

<:U(l7 

0tt<l*Jp2l>0MlltJ>NPll 

AL 

llu 

^001 

CONTINUE 

Ak 

111 

c — 

• SATlSpr CONTINUITT AT EXIT PLANE 

AL 

112 


AHJA-0*U 

AL 

513 


FL JhOI ■U< J 

AL 

1S9 


lNJX-0 

Ak 

111 


JU 713 R*>pN 

AL 

15b 


Jl-JNLllLPl»Al*l 

AL 

357 


JfJRlUUPlp A1-1 

AL 

lid 


JU 73> J«J1»JE 

AL 

159 


lEHJiLPlpJpKT-RNOILp JtKl 

AL 

5bJ 


RuA-riK(i ••l3(K)«Kr10UPl#J*K> 

AL 

161 


RH1A-KH0A*RQA 

AL 

162 


FLjMUr«Fk JMjr*U(Lf JplOARUA 

AL 

163 


U (UUpipNt.fttpO.Oi )*0 TO 711 

AL 

169 


1NJX*1 

AL 

in 

Tii 

continue 

AL 

Itb 


OAJU>tFlOAlN>FlOi10n/RHOA 

AL 

167 


lEiilT>l.''«-LaiiOr/FilklN 

AL 

169 


JNEAN'il'EllAlN/H^UA 

Al 

169 


JU 71o K»^*N 

AL 

IT- 


169 


H' ’ 


' - / > 



JS-JWLmE1.4l4l 



AL 

sn 


JE-J¥L0(LF1*4|»1 



AL 

9T2 


no 756 JoJS.JE 



AL 

57n 


UUFl.J.NloANAKKO.O.UlL.itRI^UAOOl 



NASAR 

2 1 

T96 

CONMNWE 



AL 

570 


AFTUAN 



AL 

973 

C •• 


0 00 


6 AL 

909 


ENTRY DEHNDO 



AL 

5Rl 

r— — fHT»y OFHUCO IS USIO F0» NODIFTINe OfHSITIFS 

AT RADIAL 

CONNENT 

61 

C 

injection holes, inlet SNIRLER* and FILN COOLtNO SLOTS. 

CONNENT 

62 

C 




CONNENT 

63 


IF (NVINJ.LE.Ot 00 TO 790 



AL 

902 

C— KAOML INJECTION. 



CONNENT 

66 


no 760 II«1.NVINJ 



AL 

903 


i«tYiNj(in 



AL 

506 


N-KVINJUM 



AL 

909 


j-jviNjmt 



AL 

966 


Nl-J 



AL 

507 


IF ( J.FO.JNLltt.611 



AL 

566 


*REA-XS(lt6RN(Nll62SIK) 



AL 

583 


RHniNJ>AYlNJ(ni/AOS(VINJ(tn)/AREA 



AL 

990 

7A» 

RHQ(I. J.F)>RNC1NJ 



AL 

591 

750 

CONTINUE 



AL 

992 


•CYCLIC ROUNOARY CONDITIONS. 



CONNENT 

65 


on 2060 J-2.N 



AL 

593 


on 2060 I-2.L 



AL 

996 


RNOd. JjNPll*.96(RN0(I.J.2t4RH0(I*J*Nn 


AL 

999 


RNOd. J»1 »-RHO(I.J.NRll 



AL 

996 

?050 

continue 



AL 

997 

C..~.tNLET SHmEN. 



CONNENT 

66 


no 760 R-I.NFl 



AL 

998 


on 2061 J-JSN1.JSN2 



AL 

999 


I*INLI(J.4t*I 



AL 

600 

2061 

RNOd. J.Rt«RHOSW 



AL 

601 

20<><» 

CONTINUE 



AL 

602 


>FILN COOL1N6 SLOTS. 



CONNENT 

47 

2064 

IF (NUINJ.IE.O) 60 TO 760 



AL 

603 


on 7<jq tt*l.NUINJ 



AL 

606 


I«tUINJdI)-l 



AL 

609 


j-juTNj(in 



AL 

606 


AREA-YSR(Jl*(ZtNFll-nitl 



AL 

607 

750 

RNOd. J.FI>2.*AUINJ(II)/AREAFUINJ(II t•RH0(I4S*J(KI 

AL 

606 

760 

CONTINUE 



AL 

609 


RETURN 



AL 

610 

C •• 


>6 00 


6 AL 

611 


ENTRY CANOD 



AL 

612 

C FNTRV C«r)C0 IS USED TO CALCULATE WALL 

6AN6S 

FROM THE NALL 

CONNENT 

66 

C 

^UNCTIONS. 



CONNENT 

69 

r 




CONNENT 

90 


no 9000 F-l.NFl 



AL 

613 


no 9007 I«1*LP1 



AL 

616 


i>JHL0(I»4) 



AL 

619 


IF dKtNd.Kt.EO.2.nR.(KlNd.R».E0.3) 

60 TO 

3009 

AL 

616 


IP (IGANKNYI.EO.OI 00 TO 9009 



AL 

617 


«»LUS>VISrd*J.FI 



AL 

616 


IF (YFLUS.6T.ll.5t 60 JO 9001 



AL 

619 


r.ANd. J.F>>AN(J/FR(NVt 



AL 

620 


GO TO 9C02 



AL 

621 

SOOl 

C*N(I. J.F t ■ANU*YFIUS/FREF(NV| /(AL06(E6YHUSlJAR4FJAT(N»tt 

AL 

622 


60 70 9002 



AL 

623 

TOOT 

GAMd. J.K »-0. 



AL 

626 

9002 

J-JWL 1 (|.4t 



AL 

629 


IF ( If>N.EO.0.CR.lRlN(I.Rt.E«.l.QR.tKlN(I.Rt. 

,f0.9l 60 TO 9006 

AL 

626 


IF dGAFI (NVI.FO.Ot 60 TO 9006 



AL 

627 


1 71 ) 


o^I)GI.nal page « 
OF POOR QUAUTY 


rnus«visc<l«j*ti| Al 

IF imus«cr.n.9» «o to soo6 av 

r.«N(i* j»F)«AFU/ritiNVii *r. 

60 TO aOOT AL 

1006 6»N(t*i*K)-AFU«VHUS/rKEMNV»/IAtQ6l«*yFI.UStrAK*ajAT(MVt) t \ 

60 TO 1007 a;. 

aOOA 6Ai4<I»J»K)-0. U 

7007 cn**TiNoe ai 

00 9000 Al 

IMWI I K 

IF { JKI6(J»A|.E0.|) 60 TO 1009 AL 

IF n6AF)2O«VI*E0.«) GO TO 9009 Al 

VPIUS«V1$C<I«J*FI At 

IF (vnUS.OT.U.St 60 TO 9019 Al 

r.Afld* J»F)*APU/flMNV) AL 

60 TO 9011 AL 

9019 6M(I*<l»K)>AFU«TFiUS/MEF<NV»/UL0GIE9VHUSI/Ai(«f JATINVtt AL 

60 TO 9011 AL 

9009 GA>Mt*JfKl*0» AL 

9011 1-1WL0I4»A|«1 AL 

IF I J.CT.4ttCl«AN0.J.Lr*JU00) 60 TO 9012 AL 

IF (I6A02INVI«FQ.0I 60 TO 9012 AL 

VFlUS"9ISC(I*JiM AL 

IF IY9LUS.6T.il. 91 60 TO 9019 AL 

6ANn*J*KMAAUF9MH9» AL 

60 TO 9000 Al 

9019 619(1* J»K|*AFU*VPLUS/FREF(NVI/| AL06(E9YFLUS1/AK4FJAY(NVH Al 

60 TO 9000 At 

901? 6AN(I»4*R)>0. Al 

3000 contihue al 

CYCLIC AOUNOARV CONOITIONS. CQOOENT 

00 901A I>7»L Al 

00 901A J>2*F AL 

6AM(I« J*1I*.9«(6AIMI*4*2)«6AIMI*J*NM Al 

6AM(If J*NPll«6AM(tf J.l) AL 

IF (NV.E0.91 CAO(I*4*NPl)-GAn(t*i»2l AL 

901A continue al 

return Al 

C ** ** ** •* *« •* •* ** •• •• •• •• •• AL 

entry SONAS Al 

c_..— anTPY SONAS is used to include the sprat EVAPORATION TERN CONMENT 

C IN THE VARIOUS EOUATtONS. CONMENT 

C CONNENT 

on 12A I-I*IP1 Al 

00 12A J>1*PP1 AL 

12A DIV6IT»JI>0. al 

6f TO (266.267*260*269)* N60T0 Al 

C U-VEIOCITY Al 

PA6 CONTINUE al 

?T0 IF (NFN2.LE.01 60 TO 271 Al 

DO 273 J-2.N AL 

N JR«(K-21*(N|-2 )R(N4-2)*( J>2)«(NI*2I AL 

t$*tWlt(J*N6DTa) AL 

IE-IVL0(J»N6CTn) AL 

no 279 I«IS.IE At 

t.K«K JP«(I-1I Al 

LVNC.lPC'l At 

niVGd* J)«niV6(l* J)-FRN(t-llPEVAP(LI(NCl-FRP(l|9EVAP(LPCI AL 

IF (t.EG.at OtV6(I* JI*OtV6(l.J|«FRP(2l*EVAPaROCI Al 

IF (I.EO.Ll OtVC(I*Jt>DIV6(I»JI-FXNU19EVAPUPCl Al 

279 CONTINUI al 

?Tl CONTINOF At 

rfturn al 

c — — V-VFlCCtTY Al 
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*6T CONTINUF 

»T* If (NfKI.U.Q) 6Q TO *T6 
DO g77 

tS"lwmj*N6DTn) 

IE-IWLC(J*NGDTQ) 

00 2TT I«IS»IF 

1 

LYMC-LfC-IHI-2l 

OIVOI I*J|«OIVC(I* JI-frrM J''ll«EVAf<LTNC|oFrf (JI*EVAPILfC> 
IP IJ.E0.3I 0IVG(I»J|*l>lVG(I»Jt-FrP(2)*EYAP(LVt1Ct 
IF IJ.EO.N) DIVG<I*J»-DIV6(I»J)-FVIUin*EVAF(LFCt 
2T7 CONTINUE 
?T0 CONTINUE 
RETURN 

C u-VELOCITY 

EAR continue 

?TR IF (NFRI.LE.OI GO TO 261 
00 262 i*2»F 

KJK-(H«2»F|NI-2)F(NJ-2t»(J-2)F(Nl-2l 

IF-IMIIU*N60TO) 

TE«tMlCIJ»N«CTO> 

00 262 I-IS.IF 
LFC*«(JF*{ I-ll 
l2MC>lPC«(NI-2l*tNJ-2) 

UJ-f J>2l*(NI*2M(I-l) 
0IYG(T»4I«DIV6IItJt-f2N|R*l|AEVAP(l2NCI 
IF (K.LT.NFI) OIVG(I*JI*OIVG(ItJ»«FZPUtPEVAPUPCI 
IF (F.EO.NPII OIV6(I»J»«OlV6<t»JI-FZP(2t*EVPPUIJ) 

262 CONTINUE 
261 continue 

RETURN 

C OTMER VARfAeiES 

269 CQNTINUF 

261 IF INFN7«LE.O) 60 TO 289 
no 26A 4*2*6 

K4K*(6-2»R(NI-2)RlN4-2»«t4-2l*<Nl*2l 

TS*lWLIIJ»NGCTni 

IE*IWIO(4>NGCTO) 

no 266 I*IS*IE 

lrc*kjk^(I-ii 

nTY6(r*4t>0t6G(I*4l-EVAPIlPC» 

266 CONTINUE 
269 CONTINUE 
RETURN 

FNTRY SONOO 

“""—entry S06C0 IS USED TO INTRODUCE THE RQUNOARY CONDITIONS 
6Y NOniFYING THE SOURCE TERNS, 

'‘ONE MERE FOR SLOT COEFFICIENT NQDS. 

9A IF (NUINJ,LE,C> go TO 92 
on A9 II«1*NUIN4 
I-tUTN4(in 
J*4UIN4(m 

IF (J.EO.JWmi*A)Rll GO TO 1A9 
Nl-4-1 

IF (NV«EO,n AYP(t,6nti,9RAYPn*Ntl 
IF (NV.EQ,1) AYPn-l,61l*.9RAYP(t-l*Nll 
IF (NV.GT.2) ATPn-l,NlJ-0, 

IF INV.NF.II ATP4 1-2*4 )*0. 

IF (NV.FQ.tVRX) AXN(I*4l*q* 

60 TO A9 
lAR 61«4*l 


172 


AL 

668 

Al 

669 

AL 

690 

AL 

691 

AL 

692 

AL 

69S 

Al 

694 

Ai 

699 

AL 

696 

Al 

697 

AL 

696 

Al 

699 

AL 

TOO 

AL 

TOl 

AL 

T02 

AL 

T03 

AL 

704 

AL 

709 

AL 

706 

Al 

707 

Al 

706 

AL 

709 

AL 

710 

AL 

711 

AL 

712 

AL 

713 

AL 

714 

AL 

719 

AL 

716 

AL 

717 

AL 

718 

Al 

719 

AL 

720 

AL 

721 

Al 

722 

AL 

723 

AL 

724 

AL 

729 

AL 

726 

At 

727 

AL 

726 

AL 

729 

AL 

730 

AL 

731 

AL 

732 

» Al 

733 

AL 

734 

CONNENT 

59 

C066ENT 

56 

CONNENT 

97 

Al 

739 

AL 

736 

AL 

737 

Al 

736 

AL 

739 

Al 

740 

AL 

741 

AL 

742 

AL 

743 

AL 

744 

Al 

749 

AL 

746 

AL 

747 

AL 

746 


ORIGINAL PAGE IS 
OF POOR QUALITY 



ff (NV.IO.n AYHn*Nn«.9*AVIM|*NU 



AL 

744 


tF cNv.Eo.n *Ynn>i*m".9*AVMt-i*HU 


AL 

790 


IF <NV.6T.tt AYNll-l.NXt*«. 



Al, 

791 


IF (NV.NE.lt ANF(t-t»Jt>0. 



Ai 

792 


IF (NV.FO.LVAKt AYN(l.il>0. 



AL 

79S 

49 

FONTINUE 



At, 

794 

It 

CONTINUE 



AL 

799 

C ♦-♦ 

ERESSU8E EE8TA8ATI0N 


AL 

79A 


IFINV.NF.At 60 TO tOO 



AL 

797 

C“— ' 

-SIOT NODIFICATIONS. 



CONNENT 

90 


IF (NUINJ.IE.OI 60 TO 49 



AL 

798 


no 40 II-l.NUINJ 



AL 

794 


I>IIJtNJ<tIt>I 



AL 

700 


.t*JUINJ(ITt 



AL 

761 


sun. jt*o. 



AL 

762 

48 

SFfl* Jt»*l.E3C 



AL 

769 

44 

CONTINUE 



AL 

764 

C04F 

NE*E FOR ORORIET FVAFORATION TERNS 



AL 

769 


IF (NFNt.LE.Ot 60 TO 944 



AL 

766 


00 940 J>t»ll 



Al 

767 


KJR*(K-t)*INI.214(NJ>tt«(J-2t*IN!«tt 



Al 

768 


tS*lWlI( J.NGOTQt 



AL 

769 


lF-lWLC(J»N60TOt 



Al 

770 


no 440 I*IS.IE 



Al 

771 


LFC>KJK*(I«It 



AL 

772 

U6 

SUd. Jt*SU(I» Jt*FVAR(LFCt 



AL 

779 

t*4 

CONTINUE 



Al 

774 


-CAtCUlATE THE NAXINUN AND SUN OF CONTINUITY ERRORS. 

CONNENT 

94 


IF(K.NE.tl 6C TO 101 



Al 

779 


SNAX*0. 



AL 

776 


SSlINaO. 



Al 

777 

101 

CONTINUE 



Al 

778 


DO IOC J-2.N 



AL 

774 


IS*IH( I( J.NGOTOt 



Al 

700 


lE-IWlOU.N6CTOt 



AL 

781 


no 100 t-IS.IE 



AL 

782 


ASU-ARS(SU(t.Jtt 



AL 

789 


SSIiN«SSUN«ASU 



Al 

784 


IF (ATU.lT.SPAXt 60 TO 100 



AL 

769 


INAX-T 



AL 

786 


JNAX*J 



Al 

787 


knak.k 



Al 

788 


SNAX>ASU 



AL 

784 

100 

continue 



Al 

790 


IFCK.NE.NI 60 TO 102 



Al 

741 


SMAX-SMOX/FIOMIN 



AL 

742 


SSIINaSSUN/FLCMIN 



Al 

749 

lot 

CONTINUE 



Al 

744 

too 

CONTINUE 



Al 

749 

c TUROUieNCf OlSSIMTtON 


AL 

746 


IF INV.NE.LVDt GO TO 900 



Al 

747 

cn-if 

NFRE FOR CYlINORICAl MAU SOURCE TERNS 



AL 

748 


on ?oi I*t.L 



Al 

744 


J>JNLfl(I.NGCTCt-l 



AL 

800 


IF lIFINd.Ft.EO.t.OR.IKINU.Nt.EO.lt 

60 

TO ItOl 

AL 

801 


OtST«,54YniF(J*ll 



AL 

002 


IF (J.EO.NI DIST*T0IF(NRlt 



AL 

809 


(.•••KN(Kt«JN(Jl«t 



AL 

804 


• TCOF<i*Tro*FUR»«V«t 



AL 

809 


SUd. J t*l.E90*RTCOR4SOIRT(RTCOK t /( ANROtSTt 


AL 

806 


SFd. 91—1. ESC 



AL 

807 

ItOl 

IF dONt tOl.tOliltOS 



AL 

808 

1?04 

d.NGOTI't^l 



AL 

804 


IF dRINd.Rt.FO.l.QR.tNlNd.Kt.EO.St 

60 

TO 201 

AL 

810 


17 ^ 


Poor 
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0 TSTk. 9 «YD 1 F(J» 

IF (J.FO.?) ni9T-tDlF<2) 

RTCOF«*TCI)*FaF»N¥K» 

SIM I# J»«l»E3fl*RTCOK*SOI>T(*TCOKl/mi*OISTI 


20t CONTINUE 

CONI HMF ION Slot NOOIFICATIONS 
IF (NUINJtLF.C) Ffl TO TIO 


DO 709 1I*I»NUINJ 

I-lUlNJ(in>l 

J»JUXNjni) 


Nl-J-1 . . 

IF <J.I«.JWLIU#N60T0»*ll Nl«J*l • 

NZ-ANAXOINI* J1 

IFaKNtRMJNtNltAl 

RTCnK-NTCD 4 FaF*NVK) 

SRF«AKfAC*«UINJini**2*NUINjm»M2» 

SIN.ALFAC*YS(JI , ... 

stia»ji«i»fao*co*sKe**x.9/«SLN*i*E-io» 

Sul I»Ni»»line*MCOR*SaRT|XTCOK»/*AX*. 9 *tOIF<N 2 n 

spci*<*it«*i«iao 

709 CONTINUF 

710 CONTlNUf 

CONF HERE FOR INLIT NALL SOUNCE TERNS 
00 202 J-2>NN1 
t*IHLIU*N6CT0) 

IF ( JKIN(i*K),E 0 . 1 ) 60 TO 1202 
tP-r*JNIJ»*NMN» 

«TCOK-RTCO*F<LP*NVKI 

0m"»5*X0IF(I> 

IF (I.E 0 . 2 ) 0 IST»X 0 IM 2 I 

SU(l»J»»l«f 30PRTCOKPSORHRTCOKI/T AX901STI 
SP( It J)«->1*E3C 
1202 t-INLO<i»NGOTn 

IF ( J.6T, JNC1<ANO*J*LT.JVOOI GO TO 202 
LP-TpJNUMKNIN) 

RTCON»PTCO*FaP»NVN» 

OIST«, 9 PXOIF(I 71 I 
IF U.EO.U niST*KOIF«LPH 

sun. J»-1.E30*RTCON*SOPTIRTCON)/IAX*OISTI 
SPII. JI—1.F30 

?02 nONTlNUE . . . 

r U-VEIOCITY 

JOO IF (NV.NE.n CO TO AOO 
CflHF here for slot NOOlfICATIOHS 
IF <HUIN4.LE.C» cr TO 720 
00 719 1I-1.NUIKJ 
I«IUINJI1I) 

J-JUINJIIII 

«U< I. JI-l.F30*UINJ(tn 
SPII. J»*-I.I3C 

719 SP(I- 1 »J»"- 1 »E 30 

720 rONTIHUF 

CONE MERF FOR OPOPLET EVAPORATION TERNS 
IF (NPfi7,lF*€> CO TO 321 
IF (K.E0.2I REHlND NTRA 
REAO INTPAI EVSU 
00 32P J«2»P 

t* JK« I k-2»*«NI-2M«NJ-2»*IJ-2 MINI-2 » 
IS-lNLK 4 .NeOTn> 

CU.HCCTO) 

on ^?? i-is.iF 


174 
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L»c«K.tH»n~n 

Li4-( 

SU< I* JI-SUM> JI«FVSU<iU) 

5MI»J»-SP<I»J»-FKNII-l**CVAm««CI-PKPai*CVAf(LPCI 
IP n.FC*3t SMIf il"SP»I»J»-P«P<2»*e»*P<iP»'CI 
IP (t.EO.LI SPn*J»«SPII»J)-P«‘’<l»*iVAPIiPC» 

3?* COMTIHUF 
3?i cnHTiNue 

c M-VILOCITT 

400 iFiNVtKF.a) oc rn soo 
cnnp hfre for slot PODiFtCATiaNS 

IF (NUlNJ*LP*Ot 60 TO 90F 
no TIP n>l*NUTNJ 
I*IU1NJOI>-l 
j>jutNjnn 

IF (J*E0.JMll(I*N60T0t«ll P1-J41 
N2«ANAItCU*Plt 

SMRSTR«CFP*.9AIPH0II»I11»K»4RH0U»HI»K-IM*»MI»«1*K» 

SHRSTR«APS(SHRSTM 

SPII»Mn*SP(I»Pll-SHRSTRPRP<N2t*ZSM(Kt*XS(n 

SHRSTR«CFR*.9*IR«DlI-l»J»P>*R«0n-l» 

SHRSTR-ABSISHRSTR) 

9PtI-l»JI«SPU-l»J»-SMRSTR*TSRl J»*ES«IM 

$un»J)«i.Fao«uuiNJ(in 

TIP PP«I»J» — 1.F3C 
PO? CONTINUF 

COPE HERE pnp ORCFIET EVAPORATION TERNS 
IF (NFN2.LE«0) 60 TO 329 
RFAO (NTP4I EVSU 
nn 326 J-2»P 

KJK-CK-2»*(M-2)P<HJ-2»*U“2»*(NI-2I 

IS«TNLI(J*N6CT0t 

lE*lVLnU»HCCTOI 

no 326 I'lS.!! 

IPC«KJP4(1*1> 

L?PC»tPC-«Hl-2)*(HJ-2» 
tIJ-« J-2»PCNI~2»4(I-l> 

SUM* J)>SU(I»J)4EVSUflIJ) 

SP( I* J)«SP( I»JJ-FTN<R-U*E¥APCL2NCI 
IF (K.EOtNPlI 60 TO SAT 
SP(l»il-SP(I*JI-FTP(R»*EVAPUPCt 
GO TO 926 

3 AT SPIT* JI-SP(I»J)-FTF<2I*FVAP(LIJ) 

326 CONTINUE 
329 CONTINUE 

C TUR3ULENT KINETIC EHER6T 

900 IF (NV.NE.LVPI 6r TO 600 
CONE HERE FOR StCT POOIFICATIONS 
IF (NUlNJ*lF*Ot 60 TO 602 

no t3i ti"i*PuiNj 
i-iutNjtin-i 
j«juiNjnn 
Nl-J-l 

IF ( J.EO. JVHn»N60T0l*U ^ ^ 

WALKE-CFRR.294MUI t»Nl»K>*Uf l4XtNl»Kn**2*IVII»Plf Kl4V(I»Nl»K4l» • 

1 ••2»/PTrn 

MALKF"AN4X1CVAIFE*1i I 
SKF-AKFAC*««IHjnnRR24VUIHjnn662) 

SIM Iti»«l.F30*SPF 
SP4 1, Jt*-<1.F3C 
SUn.M»»l.E3CRVALRE 
T31 SPn»»ll"-I.f30 


AL 

PT9 

AL 

676 

AL 

RTT 

Al 

P76 

AL 

P79 

AL 

660 

AL 

R61 

AL 

662 

AL 

663 

AL 

666 

AL 

6P9 

AL 

666 

AL 

667 

AL 

666 

AL 

669 

AL 

690 

AL 

691 

AL 

692 

AL 

693 

AL 

694 

AL 

899 

AL 

896 

AL 

697 

AL 

69$ 

AL 

699 

Al 

900 

AL 

901 

AL 

902 

AL 

903 

AL 

904 

Al 

909 

AL 

906 

AL 

907 

AL 

906 

AL 

909 

AL 

910 

AL 

911 

Al 

912 

AL 

913 

Al 

914 

AL 

919 

AL 

916 

AL 

917 

AL 

916 

AL 

919 

Al 

920 

AL 

921 

AL 

922 

Al 

923 

AL 

924 

Al 

929 

AL 

926 

At 

927 

AL 

926 

AL 

929 

AL 

930 

AL 

911 

AL 

932 

AL 

933 

AL 

934 

Al 

939 

AL 

936 

AL 

937 

AL 

93" 
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602 CONTI NUF 

C ♦•♦-♦-♦-♦-♦-♦-4« ♦-♦-♦« 

600 tF(NV.NF*2) fiO TO 700 
rONF NFOF Foil SIOT FPOIFICATIONS 
IF (NUINJ.LF.C) CO TO 731 
no 730 II-I«NUINi 
r-iu!Nj(in-i 

J-JUlNJUt) 

5P( T> J«lt»l4F30 
T30 Si'(t*Jt"-l4nO 
T33 CONTIKUF 

CONF MF«F F0« DROPIFT FVAPORATION TCRtlS 
IP (NFNT.IF.O) 60 TO 323 
PFAfl (PTP4t FVSU 
00 324 J«34p 

NJK>|K.?)«(Ni.2|*(NJ-7T4(J-2t*(Nl*2) 

!?*IWII( JtKGCTOI 
IF«1W10U*N60T0) 

00 324 t>lS»IF 
IPCoNJF^II-l) 
lVNC-lPC-IM-2) 

LIJ«I J-2)*(M-2)4(I-n 
SUIT. Jt-SU(I»Ji«FVSUCLIJ) 

SP<1« JI-SP(ItJ>-FYNf J-l)4EVAP(lYNO-FrP<J)«eVAPILPCI 
IF U.E0.3) SP(t>J|>SP(If J|>FVP(2I*EVAFUYNC) 

IF (J.EO.P) SP(I> JI*SPU>JI«PYN(N|*iVAPUPCI 
roNTTNUF 
COMTINUF 

f FNTHAIPY 4.4-4>4*4-4.«.«.*.«. 

700 IF (NV.NF.IVH) GO TO GOO 
ro'te HERE FOP CYtlNOPICAL MALL SOURCE TERHS 
00 P01 I«?»L 
J-JMLOa.hGOTOI-l 

IF <IKIN(tiKI«FC*2*0R.lnlNn*KI«E0.3l GO TO 1801 

HTC**9*S0RT( IU( I f l4l» JtKH*P24lH(I* J»KUMn»i»K< 1)|P*2) 

1 ARHOII* J*K)4CFR 

S'J(I»J)>SU(I*Jl4HTC*RNU*ll*ZS(K)AIS(II*CP«(TCVLN-TEPP(If J»KH 
IF (IOW» eClt801>1801 
4-JMLI(I»N6nT0»*l 

IF (IKlNn>R).F0.1.0P«IKIN(I«Kt.Ee*3) GO TO 001 
HTC-.9*S0PTHIHI,J*KI4U(I41,J,R| » «*24(Wt I » J*R 1 4MI I • J*K4l) ) **2 ) 

1 •PHniltJ^KMCFR 

SU(I»Jt>SUM4 4»4HTC*PN< J»«Z$<K)*XS(1 l•CP*(TCTLM-TERP^*J»K ») 
CnNIIHUf 

HERF FOR SLOT POOIFICATIONS 
IF (NUINJ*LE.C) CO TO 002 
00 736 II-1»RU1NJ 
I«!IIINJ«II»“1 
4«JUINj(in 
Pl-4-1 

IF < J»FO. JHLI(I»NCaT0>4lt M1.J41 
N r».\NAXO( J< A 1 ) 

HTC-,f.*lMn-l,J,F»4HlI-l. J.K*lM*RHOU-lf J»KI*CFR 
WTC"ANAKHA0S«MTC»»l.£-2O» 

SIM I**l*i)*SU(1»l«4)6HTCPYSR<J»*ISIKMCP*ITLIP-TEPP(I''l(J*Pn 
HTC-.MS0RTM»ja.Pl*M*0ll4l.Nl.Rn**24(M<I»Hl»M4MH,Hi,R4in 
I •*2l4RH0II»Pl4K|FCFR 

SU(T*Nlt»SU(l*01)4HTC*RH(H2>«I3(lU*XStn«CP«tTLIP"TFHP(I#Rl.KI) 
IMCPS«3 
NSI*T002 
NS2-ff)N2 

tr.tiiikji m 

TKINM*l.flOO/TK 
S2| IOn2».RATIC2/SAMtIOC2» 


1401 


•01 

CniF 


AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

At 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

NON 

NOR 

NOR 

NOR 

NOR 

NOR 


«3« 

940 

941 

942 

943 

944 
949 

946 

947 

948 

949 

990 

991 

992 
99 3 
994 
999 

996 

997 
990 
999 

960 

961 

962 

963 

964 
969 
966 
96 7 
960 

969 

970 

971 

972 

973 

974 
979 

976 

977 
970 

979 

900 

901 

902 
983 
904 
989 
906 
987 

980 

989 

990 

991 

992 

993 

994 
999 
996 

109 

110 
111 
111 

113 

114 


'S 
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S?(I0H2t*ll.«->HATfa2t/SnHUDN2l 
CAU MCAS 

HAf •HSU"*U«IC0HA|K 
SU< 1*21-1. F30AHAI 
7S4 3A<I*J»— l.ESO 
AO? CONTINUE 

CONE NENE FOA INI.ET NAU SOURCE TERNS 
00 aOS J-2*N 
i-twmj*NC0T0» 

IF < JKINt J.KI.EO.ll 60 TO 1801 
HTC-.9HM(l*J*RMHII*2*K«lM«RH0t I* J*KI*CFR 
HTC-AOSIMTCJ 
AREA-YSRUI?ZS(Ki 

SUIt»2«-«M(I»J)?HTC*AREA*C?*(TlNL«->TENRII»J»Kn 
1A03 t-TWLC( itAR^TO) 

IF (J.OT.JHQI.ANO.J.LT.JWO'n 60 TO 80S 

HTC>*9«<wn*2»K)«W<If2»K?lM*RNaiI»J»R)8CER 

NTC*A8S<HTCI 

*REA-VSRUI?ZS((0 

SUtI*2l-SU(l*2l4HTC«AREA*CF*(TINLW>TEN?II»J*Ktt 
80S CONTINUE 

CONE NERF FOR CROFLET EVARORATION TERNS 
IF (NFNZ.LE.O) 60 TO 319 
DO 316 J-2*N 

N2it-(R>2l*INt>2IR|NJ-2}4U-2)6(Nt-ZI 

tS-INlKJ.NGCTOI 

IE-1WL0(J*NGGT0I 

DO 316 1-lS.IE 

lRC«KJR4(l«lt 

IHCRS-3 

NSl-IOFU 

Ns?.inFu 

TR-TFOEt 

TRINT-].OnO/TR 

S2(IDFUt-1.000/SRM(IOFU) 

H0RFU-H$UN*UMCQNRTK 

$u( i*.n-s<iii« j)4Evar(l?ci*horfu 

316 SR(I*2I-S?n»i>-EVARU?C) 

319 CONTINUE 

c PHI (TOTAL FUEL) 4*4-4*»->4-«>4-4-4-4«4-f«- 

900 IF (NV.NE.LTFUOR) 60 TCi 890 
CONF HERE FOR SICT FOOIFICATIONS 
IF (NIIINJ.IE.O) GO TO 891 
DO T3T II-l.RUD/J 
I-I«INJ(II )-l 

j-juiNj(m 
SUd* J)-0. 

73T SF(I*J) — 1.E30 
891 CONTINUE 

CONF NFRE FOR ORORIET FVARORATION TERNS 
IF (NFNZ.LE.O) GO TO 317 
DO 318 J-2.R 

RJR-(K-2)R(N1-2)*(NJ>2)4(J-2)*(NI-2I 

tS-IWl 1( JtNeCTO) 

tE-IMLC<2*N60Ta) 

00 318 t-IS.IF 
LRC-KJR«(f-l) 


SU(r*2)«SUn»J)4FVAF(LFC) 

118 SF(t*2)-SPII«Jl-EVAR(LRC) 

317 CONTtNUF 

r 4"4— 4— 4-4“4— FUEL 4-4«>4"4"4"*'-4<»*-*-4‘»4»4«4«4« 
990 IF (NV.Nf.UFU) fO TO 991 
Cn>«F HFRF FOR SlfT RODIFir AT10N5 


NQX 

119 

NOR 

116 

NOR 

117 

AL 

998 

AL 

999 

AL 

1000 

AL 

1001 

AL 

1001 

AL 

1003 

AL 

1009 

AL 

1009 

AL 

1006 

AL 

1007 

AL 

1008 

Al 

1009 

AL 

1010 

AL 

1011 

AL 

1012 

AL 

1013 

AL 

1019 

AL 

1019 

AL 

1016 

AL 

1017 

AL 

1018 

AL 

1019 

AL 

1020 

AL 

1021 

AL 

1022 

AL 

1023 

AL 

1029 

NOR 

118 

NOR 

119 

NOR 

120 

NOR 

121 

NOR 

122 

NOR 

123 

nor 

129 

NOR 

129 

AL 

1026 

AL 

1027 

AL 

1028 

AL 

1029 

AL 

1030 

AL 

1031 

AL 

1032 

AL 

1033 

AL 

1039 

AL 

1039 

AL 

1036 

AL 

1037 

AL 

1038 

AL 

1039 

AL 

1090 

AL 

1091 

AL 

1092 

AL 

1093 

AL 

1099 

AL 

1099 

AL 

1096 

AL 

1097 

AL 

1090 

AL 

1099 

AL 

1090 

AL 

1091 
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OPtfG.’i^JAL PAGE fS 
f P00[^ QUALITY 


IF {N«11NJ.LF«0) go to n«9 
on T^? 1I-1>NU!NJ 
t-TuiNjiin-i 

j-juiNjan 
r«z fP(T* J)-~1.F30 
A99 CONTINlili 

COIF HFRF FOR DROFLfT fVAPQRATIQK TERRS 
IF (MFRZ.LF.OI GO TO 919 

on 320 J- 2 »R 

MJK«(N-2|9(RI-2»a(NJ-2)*U-2)9tNI«2t 

TS-lWLKJfNGOTni 

IE-ItaC(J»N€OTOI 

no 920 I*IS»IE 

LRC>KJR4>(I-n 

SU(t*Jt-$Ult»J|FEVARtLRC) 

120 1R(I*J)-SPn>J)>EVAR(LPC> 

919 CONTINUE 

941 IPINV.RE.LVCO*AND«NV.NF.LVCH.ANO.N»«NE»I.VH2.ANO.NV.NE,LVHn6a TO 
1 990 

CONE HERE FOR SLOT RQOtFtCATtON 
IPINIilNJ.lF.O) 60 TO 944 
00 992 II-1«NUINJ 
I>IUINJ(II)-1 
j-juiNj(in 
sui l* J)»0. 

992 SP(I.J) — 1.E3C 
499 CONTINUE 

CONE MFBF FPP DROPLET EVAPORATION TERNS 
491 IF (NFNT.LF«0) 60 TO 990 
00 997 J-2»P 

KJK«(K«2t*tNI>2)4(NJ>2t4t J-2)*tNI-2l 
T$«IWLI(i*N60T0> 

IF-I«LC«J»N6CTPJ 
no 997 I-lSflE 
LPC-KJF4M-1I 

497 S»n* J|>SP(t,J)*EVAP(LPCI 

C*-4-4-4-4-4-4-4-4-4-4- NUCLEI CONCENTRATION 4-4*4-4«4«4-4«4-4-4>4-4- 
990 IF(NV*NF.LVN)GQ In 1200 
CONE here for slot nooificattons 
IF tNUINJ.LE.OtGO TO 1201 
on 1207 n-l*NUINJ 
T«TUINj(TI )- l 
jojuiNjni) 

SU(t»J)-Ct0 
1207 SP(T>.U*-1.0E10 
CONE HERF FOR DROPLET EVAPORATION TERNS 
1201 TFtNFN2.LE.Cl60 TO 1209 
no 1206 J*2»P 

KjK«(R.2I*|Nl*2»4(NJ-2i4< J-2I4INI-2) 

TS-lVLIU*N6nt0l 

IF-IWLC(J,N6CTP» 

00 1206 l«ISttE 
LPr*KJF4l-l 

1206 SRtT»JI«SPI I»2I-EVAP<LPCI 
1209 CONTINUE 
•ETURN 

C4o4«4»4x 4-4>4>4-4> SOOT CONCENTRATION 4-4-4-4-4-4"4-4<-4-4«4-4-4~4-4' 
1200 IFtNV.LT.LVSl.nR.NV.GT.LVSIlGn TO 1100 
rnif hfre for SLOT PQOIFICATIQNS 
irfNtllNJ.LE.OIGO TO 1103 
on HOP tt-l»NUINJ 
T-tUtNJtlf t-1 
4-JUINJtIT > 

I 7H 


AL 

1092 

AL 

1093 

AL 

1094 

AL 

1099 

AL 

1096 

AL 

1097 

AL 

1096 

AL 

1099 

AL 

1060 

AL 

1061 

AL 

1062 

AL 

1063 

AL 

1064 

Al 

1069 

AL 

1066 

AL 

106T 

AL 

1066 

AL 

1069 

4STEP 

173 

4STEP 

174 

AL 

1071 

AL 

1072 

AL 

1073 

AL 

1074 

AL 

1079 

AL 

1076 

AL 

1077 

AL 

1078 

AL 

1079 

AL 

1060 

AL 

1081 

AL 

1062 

AL 

1083 

AL 

1084 

AL 

1089 

Al 

1086 

AL 

1067 

SOOT 

116 

SOOT 

119 

SOOT 

120 

SUOT 

121 

SOOT 

122 

SOOT 

123 

SOOT 

124 

SOOT 

129 

SOOT 

126 

SOOT 

127 

SOOT 

128 

SOOT 

129 

SOOT 

130 

SOOT 

131 

SOOT 

132 

SOOT 

133 

SOOT 

13* 

SOOT 

139 

SOOT 

136 

SOOT 

137 

SOOT 

138 

SOOT 

139 

SOOT 

140 

SOOT 

141 

SOOT 

142 

SOOT 

143 

SOOT 

144 


OR\G\W^^ 

OF 




sucif JI-0.0 

nos i.ono 

COSf HFRE fOS OStFlFT fVAfORATION TSUNS 
nO) IflNFN7»LF«CIGn TO 1309 
OQ 1306 J-?*6 

II«m0t4»NG0T0> 

DO 1300 
16C«KJS*I-1 

1306 36n*JI*SPn*JI<*E«A6(LKI 
1309 CONTtNUF 
SETUHH 

X^OtOECTKOM OAO'IATIOK 
1300 |F(NV.SE.1VRXI6Q TO 910 
C«.~.1NLET 30UH0A9V. 
no 901 4-2»N 
I>IWlt<4»HC0Tn 
TF tJKINIJfKI.EO.n fiO TO 902 
TESFt»»TEFMt-l* Jf«» 
9U(I»J)*SU(I»J>*Eni*SIGnA*rEnFN9*9 

GO TO 1401 
402 CONTINUE 

9U(I* Jt«SU(t*4nRADIN 

spa»j)>sF(i»jt>i« 

C OUT'.ET SOUNOARt. 

1901 I* .WinUtNGCTC) 

tr ( J«6T*JM01»AN0.i»LT«JN00) 60 TO 1902 

rENPH«TFFPn*l>J*K) 

SOf t»J»«3Un»inENI*SI6NA*T6NFW**4 
sp<i* j»-SPn»JJ-EFi 
GO TO 901 
1402 CONTINUE 


SOOT 199 

SOOT 196 

SOOT 197 

SOOT 191 

SOOT 199 

SOOT 190 

SOOT 191 

SOOT 192 

SOOT 193 

SOOT 199 

SOOT 199 

SOOT 196 

SOOT 197 

AL 1069 

SOOT 190 

CQNNENT 60 
AL 1091 

AL 1092 

AL 1093 

AL 1099 

AL 1099 

AL 1096 

AL 1097 

AL 1096 

AL 1099 

AL 1100 

CONHENT 61 
AL 1101 

AL 1102 

AL 1103 

AL 1109 

AL 1109 

AL 1106 

AL 1107 

AL 1108 

AL 1109 

AL 1110 

AL nil 

AL 1112 

AL 1113 

AL 1119 

AL 1119 

1116 
HIT 
1118 

1119 

1120 
1121 
1122 
1123 
1129 

62 
1129 
1126 
1127 
1126 

1129 

1130 
29 
29 

1133 
63 
1139 
1139 


SU(L» J>*SU(L*JI«RADSUA 
SF<l*J)>SP<l»4)-l« 

401 CONTINUE 

CONE HE4F FOR SLOT FODIFIC ATIONS 
IF (NUIN4.LE.C1 GO TO 903 
no 7A3 1I-1.NUIN4 
t«tUIN4(in-l 
4«4UIN4<in 

$U(t*l»41«SUnM»4l*EHISRFSI«NA*TENP(l»4»R»**9 
SR(lFl.41-SR(I*l*4)~l 
TFNRN-TLIP 

S«(I-1»4>*SU(I-1»4UEN1*S16NA9TE«PN**9 
TA3 SPn-l»41«SP(I-l*4»-ENI 
403 CONTINUF 

C V'DIRECTION RADIATION 

410 IF (N9.NF.UIRTI GO TO 920 
00 911 I>2*L 
C— — TOP NALL, 

4«J«L0(I»NGCTCJ-1 

IF (ll(IMII»R).FO,e«OR.lKIMl.l(l*EO*ll 60 TO 909 
TEnPN*TEFP(I*4«l*Rt 

3UM.4»«SU(l»4nENI*SI6RA9TENPN6996RH(4*ll 

SPn»4)«SPtl»4»-ENI*RM4*n 

GO TO 409 

409 5H(l»4t«SU(l»41*RAO!N*RN(4*l> 

SP( |.4»-SP(I»4l-*NU+l) 

409 IF (ION* 411»911#l4n 
C_.»-,-.«flTTO" NAll. 

1411 J-4NlT(I*N60T(?»«'l 

IP (IKINIt.Kl.FQ.l.OR.IKINtlfKI.EO.l) 60 TO 406 




AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

AL 

CONFFNT 

AL 

AL 

AL 

AL 

AL 

AL 

NASAK 

NASAX 

Al 

CQNNENT 

AL 

AL 


A 
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TFIPH-TEHPt If J-lfK) 

AL 

1136 

SU< !• J»>SU( t*JI»EMI*SI<iNA«TEHPM«*4*lt*MJI 

AL 

1117 

SPMt J)-5P( I»J)-EPI«RN(it 

AL 

1136 

fiO TO <JH 

AL 

1119 

904 SU(I»J)-S(MlfJ»*RADINPfmUI 

NASAX 

26 

SPII»JI-SPII|>J>-PP(JI 

NASAX 

27 

9U CONTIKUE 

AL 

1192 

C SLOT wnOIFICATIONS. 

CONNENT 

69 

TP INUIDJ.lF.Ot Cn TO 912 

AL 

1191 

r»0 799 I!»1»PUIHJ 

AL 

1199 

i>iiiiNj(nt"i 

AL 

1199 

j-iuiNjun 

AL 

1196 


Al 

1197 

IF N«FO«jNmi»N€OTQ)n> 

AL 

1190 


AL 

1199 

rr »n«uip 

AL 

1190 

SU.I*linoSUU»l11)*£Nl*SI6l1A*TENPN9*9*RN(N2l 

Al 

1191 

799 SPnfHn»SPItfHl)-ENI*RKtP2» 

AL 

1192 

91? CfHTTHOF 

AL 

1191 

920 CONTINUE 

AL 

1199 

PFTOPM 

AL 

1199 


AL 

1196 

C 7-DlRECTION RADIATION 

Al 

1197 

ENTRT SOPQOZ 

AL 

1196 

C— — SIOT PCDIFICATIONS. 

CQnnent 

69 

IF <NU|NJ.LE.0) CO TO UOO 

AL 

1199 

00 no? II«1»NUINJ 

AL 

1160 

IF (JllTNJ(in*HF.JPLANE> 60 TO 1102 

AL 

1161 

t-iuiNjnn-1 

AL 

1162 

no 1109 K«2*N 

AL 

1163 

SUINKI-O* 

AL 

1169 

1109 SP< I»K»— 1.E30 

AL 

1169 

no? CONTINUF 

AL 

1166 

1100 continue 

AL 

1167 

C CTCIIC BQUNOART CONDITIONS. 

connent 

66 

00 921 I*2tl 

Al 

1166 

IP?>I«JP< JPIANE|9KN(2) 

AL 

1169 

L?N«I*Jh< JPLAHf ).KN(N) 

Al 

1170 

6ANDDL«.99UAPa» JPLANE.2IT6ANI1. JPLANE*Nn/RUPLANE>/t2DIP(NPll« 

Al 

1171 

1 7f)tFI2M 

AL 

1172 

SU( If 21‘SIM t*2T9GAND0L*FaPN.NVRZ ) 

AL 

1173 

SP(It?l«SP(If2)-GAM0DL 

AL 

1179 

SUniN|«SU(IfN>ACAND0L9F(lP2fNVRZ) 

AL 

1179 

9P( If N>-SPIIfN»-6ANO0l 

AL 

1176 

971 CONTIMUF 

AL 

1177 

RETURN 

AL 

lira 

FND 

AL 

1179 

9U9R0UT1NE OUTPUTINTP) 

00 

2 

COnnon Fl900fT)*nU(10f 10.91 fOVt 10*10*9). ONUOf^ Of 9 »t 

CONFA 

2 

1 ANUC (Iflf 10.9 )* soon (10* 10*91* S0OT2(lO»lO»9 Iff C 'If 10* 10*91* 

9STEP 

1 

? FN2( lC*10*9)*FS(900*19lf 

ASTER 

2 

1 PNn( lOflC* 9 1* Vise (10* 10.9 1 »ABSR( 10*10*9) iSCTRfli* 10*91* 

RAO 

1 

1 SimOflCI*SP(10*10l«ORHOOP(10*10*9)* 

RAO 

2 

1 AXP(10tlO)*AXN(10*10)»ATP(10flO)*ATN(10*10)»AZPnO*10)* 

CONFA 

9 

? nN(io*ioifC7(io.io)*criifl)fCzu(io*iO)*CTU(ioi* 

CONFA 

9 

3 C7P(lCf 10l*CrP(10).01VG(10*10l»NTPl*NTP2 

CONFA 

6 

1. A«NK(192). AXPKI192I.AVNK(192I*ATPK(192)»AZPR<192)*A.'PK(192I* 

CTONA 

1 

? SU«( 192I.SPM192I 

CTDNA 

2 

niNENS ICN U(ic.l0.9)*v(10»10*9)*im0*10*9lf PP(l(l*10*9t 

CONFA 

7 

niNFNRION P( lOf 10*9) fTFNP(10*10*9)*0AN(10* 10*9) 

CONFA 

9 

FOMIVAIFNCF (F(l. 1).U( 1.1.1))* (F(l*2)»Vfl*l*l))*(F(l*3).NIl.l.l)) 

CONFA 

9 

FOUtVAlFNCF (F(l*9)fPP(l*l»l))*(F(1.9)*P(l»l*l)) 

CONFA 

10 

FOyiVAlENff (F ( 1* A). TfPP( 1*1.1)). (FI 1»7)*GAP« 1*1*11) 

CONFA 

n 

Cn"NnN/CTl/R(30l*PP(30I.RnV(30)*TSM30l»r$VR(30)*IFLAX 

CONNON 

2 


I HO 


ORIUINAL PAC'E IS 
OF POOR QUALIlf 


n* 

r4o», 


U 


l. 11)0, . nOHJlHCMl iic?uhI INuI n*^ 

jj1":L*I‘****’"**"" 

COHNf»N/rNOfX/|P*R.LPPFS- t^tii« *»*•'*"< «o»ao» 

a MTt03.PATIC.s.M?S“T!;l!?T;!?f“*‘''‘*''^'^'f»C**»»*nOj^ 

CP*»tinN/CTrPA/*E,>t0trCT0fAO2» 

.'s:?s%':{Si;::f?sr{5:^";s[“:;j;«;j*j;;c«,.^ 

\ '»ETPni,DHun;^?5 I 

«^„i'=UFt<3»»*FUIU3K€VSu}6^*5fffI{* * 

2 .lVN,LVSI.l,VS?.crNCP,riNC.',FUT 0 T ** '’'^*'**^^''*’***»''«<*^«'» 

CnH"f)*./CRA0/IPA0,SRA0 

2 «*Ttf’e»PATI0P,RATf)10,RATnil 

-SyPRPUTINF CUIPUT IS USfS FW 

IF IHrP.LFtOI 60 TO 16 
IF IISTFP.FQ.IastFPI 60 TO 11 
IF (fnPdSTFPflJitftpIl ?0*llfP0 
CntATlNUE *w.*Afcv 

»F«INf) NTP 
RFAO (MP) UnV^MtP 


CaPRON 
COPHON 
COPhOR 
POX 
NOX 
NOX 
4STFP 
NOX 
NOX 
NOX 
NOX 
NOX 
NOX 
4STFP 
4STFP 

♦ STEP 
4STFP 
NOR 

COPNQN 
4STFP 

♦ STEP 
CONNQN 
C ONHON 
CONNON 

♦ STEP 
CONNON 

♦ STEP 
NOX 
NOX 

CONNON 

CONNON 

CONNON 

CONNON 

♦ STEP 
C0N6EN 
C0N6EN 

• C0N6EN 

♦ STEP 
CONGFN 

♦ STEP 
C0N6EN 
C0N6EN 
C0N6EN 
CONGE N 
C0N6FN 
CONGE N 
CDN6EN 
C0N6IN 
C0N6EN 
SOOT 
SOOT 
SOOT 
SOOT 

♦ STEP 

♦ STEP 

♦ STEP 
CONNfNT 
CONNENT 
QU 

00 

OU 

QU 

00 

00 


3 

♦ 

? 

} 

♦ 

3 

6 

7 

0 

9 

10 

U 

♦ 

♦ 

6 

7 

12 

6 

a 

9 

9 

10 

11 

10 

13 

11 

16 

17 

19 

16 

17 

10 

12 

2 

3 

♦ 

13 

6 

!♦ 

a 

9 

10 

11 

12 

13 

!♦ 

IN 

16 

a 

9 

10 

11 

19 

16 

17 

67 

60 

6 

T 

a 

9 

10 

11 
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ORiGfr* AL P/,;u 
OF PtiOrt gUALITY 




CAU FfllINT 11*3*11 

QU 

12 



CAU fFMNT (9*9*41 

OU 

11 



IF( ISTIPtEO.0160 TO 300 

NOX 

12T 



IMNSOCT.fO.OICO TO 22T 

SOOT 

199 

c 

-9Q9T f*>tS9I0PS TMOER AMO 3M0HE NUHIEO. 

COMMENT 

64 



F19M-O.0 

SOOT 

160 



P«A»-0.(l 

SOOT 

161 



$9A**0.9 

lOOT 

162 



00 229 

SOOT 

163 



no 229 J»2*F 

SOOT 

164 



IP.KM(K)4JM(J)*(. 

SOOT 

169 



9MOOToFHO(LFl*J*K)*YSM(J3*ZS(K|*tl(LPlf J*K) 

SOOT 

166 



flOM-FLOWAOHOOT 

SOOT 

167 



O5O0r*0M00T*(SnaTl((.*J*K>+S00T2(L*J*Kn 

SOOT 

166 



S9A».90AP+0SnCT 

SOOT 

164 


??9 

l>nA2«F(IAF«CSCCT*RH0UFl* J*K» 

SOOT 

170 



»9AR-»0AR«1«0F>30 

SOOT 

171 



fLOH"F(.0W«l.OE-3O 

SOOT 

172 



CSMOalCCO«0*SOAM/FUTOT 

SOOT 

173 



S«C0NC-l*t>E04FnAR/FL0H 

SOOT 

174 



SH9MQ-12.9e4T*AL0e(SHCOMCI»12.O49 

SOOT 

179 



9MQNQ-AFAX1(SPQMO«0.0) 

SOOT 

176 


J2T 

TF(NMOX.FO.O>€0 TO 300 

NOX 

126 


•MOX emissions inofx. 

COMMENT 

70 



PXARaO.O 

NOX 

129 



99 301 K*2»M 

NOX 

130 



00 301 4-2*N 

NOX 

131 



IP»KM(F)»JF( J»*l 

NOX 

132 


301 

»ftAR«PRAi»4RNr<LFlf J*Kt*VS0( Jt*ZS(KI*U(LPl*J*Fl«IF(lP*LVN0l446./30. 

NOX 

133 


l«F(l»il.VN<J2)) 

NOR 

134 



CHn>10€C»0*PftAR/fttTOT 

NOX 

139 


309 

CMTTNUf 

NOX 

136 

c 

... 

hfRF PP is ACTUALir KE* P 1$ ACTUAUT DtSStPAtlON 

QU 

14 



READ (NTP) PP*P 

OU 

19 



09 29 R-l*NFl 

OU 

16 



09 29 J-l*nPl 

QU 

17 



K4«>XMfX|4jP(Jt 

OU 

19 



on 2*s i-iii»i 

OU 

14 



LP-K JM*| 

QU 

20 


29 

FaP*NVn)-CD*F tLPtNYK)**1.9/(F((.RfNVD>«1.0E-30l 

OU 

21 



CALL FPRInT (NVX*NV0*9) 

OU 

22 

c 


hfpF PP IS PHI* p IS NFU* DU IS MCO 

QU 

23 



READ (NTPI PP*P*OU 

OU 

24 



CAtl FPRINT (NVFUOX*NVTE*T) 

OU 

29 



call FPRINT (NWCO»MVCO»15J 

OU 

26 



00 90 «>1*NP1 

OU 

27 



OP 90 J«lfPPl 

QU 

26 



KJH>KP(K)4JN( 

OU 

29 



00 90 I*1*IP1 

OU 

30 



LP*K JP4I 

OU 

31 



FU»»F»LP*NWFUOXl“F(tP.N¥FU» 

OU 

32 



PrLP*HVffj2)-FS(LP*I0C02» 

NOX 

137 



'(LP^NVOXI-FSURiIOOZJ 

NOX 

136 



F(LP»NVH2n>>FS(LP*I0H20l 

NOX 

134 



FaP»NXH2»-FS(lP»I0M2l 

NOX 

140 


90 

CONTINUE 

OU 

40 



CAU FPRINT |NVH2n»NVN2,16| 

OU 

41 



IF (NFN2,IF,C» f.r TO 39 

OU 

42 



0" 3? «-l*NR. 

OU 

43 



no 3t j«i*ppi 

OU 

44 



«iH*KN(P M JP(23 

OU 

49 



on 37 i»i*ip\ 

OU 

46 



LPhK JN* t 

OU 

47 


3T 

F(lP»NVFUOXI«C. 

OU 

4M 




ORIGINAL PAGL* ta 
OF POOR QUALITY 


1 


C S^«At fVAPCRATIQH AATES. CONHiNT 

on so K«t»N QU 

on so ou 

KJO-KMUMJfCJ) QU 

KJ«p(No 2 >*(NI- 2 M(NJ- 2 i«<i- 2 l*INW» OU 

on SO 1 * 2.1 OU 

L 2 -KAn 4 l ou 

LPC«Kjr«(l">ll QU 

so Fav.NVFUm-EVAPCLPCt ou 

CAU FPPINT (NVFUOS.NVFUOX. 22 l QU 

IS CONTINUE OU 

C HfBf DV 15 ENTNAIPV. OV IS FAV OU 

AFAO INTFt OVtOM QU 

CAll FFFINT (NVN.NVFAV.lOt QU 

C HFRF U is F«. V IS FT. V IS F 2 OU 

•FAn INTFi U.V.M OU 

CALI FPRTNT (NVM.HVS 2 . 1 EI QU 

c RHO and viscosity OU 

CALL FPPlNmC.S 0 * 20 l ASTEP 

NV«A QU 

00 S 6 K-lfNPl OU 

on SA j>i.Npi QU 

HJN>RN(K) 4 JA(J) QU 

on S 6 i>i.iPt ou 

IP-KJN«I ou 

S 6 F(LP.TI>Q. OU 

CALL OANNA OU 

CALL FPPINT (T.T. 2 II QU 

PFVINn HTPl OU 

00 46 11 * 1.2 OU 

46 RFAO INTPII QU 

C here PP is phi. P is NfU. OU IS NCO QU 

RFAO (NTPII PP.P.OU OU 

CALL FPRINTdl.lS.PS) SOOT 

CALL FPPtNT( 24 . 29 . 26 ) 4 STEP 

CALL PPRINTa 4 .lS.S 2 ) 4 STEP 

lF(TSTFP.fiT.O.ANn.NSOOT.NE.O)MRirE( 6 »EE 6 )SnONO»SNCONC*CSNJ SOOT 

226 FaRNAT(lH 0 . 10 (lH*)*SX»*SNOKE NUNBER - ** E 10 « 2 .SX. 10 ( 1 H 6 )/ 1 H 0 * SOOT 

1 10 ( 1 H«I. 5 X.«SN 0 RE CONCENTRATION • *.E 10 . 2 . 1 X.«NF/P 1 . QRt»E 10 * 2 » SOOT 

2 lX.RC.R.OF SNrXE/RG.OF FUEI*.SX. 10 I 1 H*)/) SOOT 

IF(I$TEP.CT.C.AND.NNQX.NF. 0 )VRITFI 6 . 302 )CN 0 NOR 

S 02 FORNATI 1 H 0 . 10 ( 1 N«I.SX.*HOR FNTSSTONS INOfX • R.EIO.Z.IX. NOR 

1 PQN.nF N 02 /RC. 0 F F(IEL*.SR. 10 <lH 6 |/t NOR 

16 CONTINUE OU 

NRITFCf.lV) QU 

14 FQRNAT I 1 H 0 . 4 NSTFP.SR. 4 MSHAR.TR. 4 HSSUN. 6 R.SHSERIT.SR. OU 

1 nHP( 2 .N. 2 ). 3 R»eHP(L.Nf 2 t.SR.SHUIt.i.RI. 3 R.eHV(I» 2 »RI.SR. OU 

2 NHWn.J.K).!R. 6 HT(I.J.K). 2 R. 10 HRH 0 n.J.Kt. 2 Rt 7 HI A «) OU 

20 CONTINUE OU 

RETURN QU 

FNQ OU 

SUBROUTINE AUR AU 

CnNNQN F(S 300 I.DU(SOO)»OV(SOO).DNISOOI. CORPS 

1 AN(IC(SOQ).SOCTl(SOO).$aOT 2 (SOO)»FCM(SOO)tPM 2 (SOO).FSISOO* 14 ). 4 STEP 

1 RHa( 4 CO).VI$C(SOOI.ABSR(SOO).$CTRISOO).SU( 100 t*SRI 100 ). RAO 

1 n*HnnR<soot. rao 

I ARP' . 00 ).ARP( 100 ).ArR( 100 I.ATN( 100 I.A 2 P« 100 l. CONFR 

• A 7 Na 0 O)tCMlQ 0 ).CV( 10 >.C 2 U(lOOI*CTUIlOf . CONES 

3 C2RaO0lfCTPaO)«DIV6(lOO).NTPl.NTP2 CONFS 

t. AXNR ( 1«2 )» AXPR( 1921. ATNR 11421* AVPR< m ). A ZNR( 142 ).A2PR(192). CTONA 

* SUSU 42 )*SPPa 42 ) CTONA 

OINENSirN U(SOO).V(SOO).M(SOO)(PP(SOO)*P(SOO).TENPISOO) CORFB 

niNFNSlOH GANfSOOl CORPS 

FOiliVAlFNCF (FaitU(l)t*IFISOU»V(lM*(Fa 001 ).MIll» CORPS 



1 


)8 ) 




OR’C'";*. |t^ 

OF P ^ JALITY 


J 




FMIIVAIFNCF (F 1 190) t 1 1 1 * I f ( 20011 * P( 1)1 » IF ( 290n»TEHMlM 

FMMVALInCF <F(2001)*6AN(1)I 

cmHnM/cn/Riao)*PHiso)*ftHV(30)»rsiU30)*TSWPi30)f iPLAx 
CO‘**^ON/CM0/><A0)»Vta0)*M30)*ASI4O)*Y3<30)»7SC:«0) *«SUI40)» 

1 rSVOO)»7SwnO)*XOIFUO)#YOIf l»0»»2DIFII0)*F)tM40)»FK»'l40)» 

? FYM30)»fVH4aO)»FfFUO)fF2M*OI»OT»TI«E 

COMMON 

l/CfNDFX/IOCC*fOFU»inQ2*fDN2*lDH2O»tOC02*10Hl»IOH2rlDNlt IDNO* tONl^2 
l»IOO» IOnH»|HCPS»llC. tLH»INAT»ITE«»Jii»Ml»H2iN9»NA»NSI.Oi»N«lOBP» 

2 NlN*N<)»NSI*rNSl»NS2(IQCH 

l/CCHFf<t/CPSUl',HSUPiFOt PPLN»«6AS»P0ASIN*SNINV»rKINV»TlN»lN*f 
4/C*ARAN/ASUBO0«3)*FNV»EAfHSU40*N0EBU0»NS*PA»00»01»02*0S»a4*RH0PP> 

A SM>SNWI30)*SP0tSlO0)*S2l30)*TK«LA0tAB«l0E0U6»tE0UlL*LREACT* 

4 LENE»*FDKli,LCONVA 

nOtJBLF PRECISION CPSUN»e«V*EB»FO»M$yB0*HSUN»PA*PPtN*OO»«!l»O2»O3» 

1 04»BRA5*R6ASIN»RHQPP*S>1*S)UNV*SO)lrSltS2*TllfTRtNViUNtSN0 
2,FIIT,FSt 

C0HNnN/STEP4/PEXPl»PEXP2*PEKP3*PEXP4*ERliEB2tEB3iEB4«CEBUl»CEBU2» 

I CEBU3»CFBU4*AE*Pl»AEKP2t AEXP3# A£XP4»BEKPl»BEKP2»8EKP3»«EXP4» 

* CE<Pl»CE»P2fCEXPS»CE*P4»FUT»FST 
LOGICAL LA0tAE»LCrNV6»LDEBU6*lEaUllfLNR6*LREACT*lENER 
C0NN0N/INT/L>P(N»LCV»NCV*N' ¥»LPI»NP1»*IPI»N1 rNJ»NKf N|NJ»NINJNKiNV» 

1 NNV»NCOTO»R»1STR» JSTR»KST*fH¥NI39)»KNI30)» JNI30)» ISTEP» 

2 IS0LVFI32)»IPPlHTn3).TlTLEI10»33) »IXt»I$NP»JSNP»BElAXC39)»NP» 

3 NRHOiNGAP* INL II 30» 5) » INLO C 30» 3) * JNLOl 40» 9 )» JNL 1 1 40» 9 ) * INEI • 

4 IWFOtPnl* JWll*iWlO* JNOIt JHa0*tON»JKtN(3O*30)*IRINI40f 30) 
CnMNON/IN(>FX/lRAR»LPREF* ISTUN»INCONP» ITRAO pN¥BK»H¥BY»H¥RI» JPLAHE 

l.RLAI*l»L¥R,LVD»LVFU0«»lVFUtLVCn»lVN»LV«X.tVRTpLVR2»N¥F(32)» 

2 WUNPp!RF$pTtTLF2l20)*fNAK»JNAX»KNAX*NVC0pFUNC0tNVH20*N¥CQ2* 

3 NVN2*NVCH»NVH2 

COi*N0N/CN0X/lWHl»l¥H2»LVNl»LVH0»L¥N02»L¥0»LV0H»l¥M20»LV*'2«lV02f 
1 L¥CO2pLWFUl»L¥C01»MN0X*INflX»lTNOX»SHDX»TNOX 
Cn>*MnN/THFRP/NVHpN¥FUtN¥OX*N¥FUOXpN¥TE»NnDENpIOK»FSTOIC*>IFUpCP* 

1 G*SCCN»RMCCCN»UNICON»PRFSSpN¥FA¥»TCYlWi T|NIN*TL1P» ACQEFI4) » 

2 T4»nFAC*NFU*¥C02*NCn»N0X»NM2O»NN2»HY¥fCXX»RATIOl#PATIO2» 

3 RATI03pRATIC4>HCOtTAN>ITWAlL 
CnnNnN/CT0PA/RFNDptCTDNA(32l 

COMNON/l«lS/APU»OEN»SNAX»SSyn»LASTEP»MTCEXTf CFR»ENISN*EHIS1N» 

1 E*iISR»TOUT»RTCO»EHIpRAniN»RAOSOB»FNA*FK»S(lFR* 

5* pkfOpFOFUp TFUEL *¥FN2»FL 0(40) »TENt*ll 40)»MI 40) pFUEll 40 ) »FU0XI40) • 

2 UTN<4Ct«T|N(40)»FUELS(40)f SEXir»16AMl(29)* I6AN2I29) 
COMMON/TURe/N¥A*N¥DpCl*C2>CO*AKpOUtDXJ(3p 3) pAKFACt ALf AC* 

1 OOOFI pPR(32)pPREF(32)pPJAY(32)pE 
COmnON/PAD/NVEpS IGNA p ABSOR*SCATR 

CO"NON/PEACI/ARCON)pPREXPI»C* 1»A«CON2*PREXP2»CR2»NOOER 
rf)nnnN/OROPL /EVAP(142 ) pNTPApNFNZp KOI 3)*Y0( 3)*I0( 3) p AlF All ) p 

1 AFTAt3)*0ELTA(3)»THETAl(3)#TMETA2l9)*NSL(3)p¥FFI3)pS'1DI3)t 

2 ¥FUFt(3)*RF0FLt3)pE¥SU(64)pHE¥AP 
C0MNQN/INJEC/FinNlNpIUINJ(2O)» JU|Ni(20)*UINJI20)pWUINil20)* 

I A<l|NJ(2C)*TUINJ(20)*I¥lNJ(20)pJVlNJI20)pK¥lNJ(20l*¥INJ(20)p 
* F¥INJ(20)»0¥INJ 120) » A¥1NJ<20 )pT¥IMJ(20)pNU1NJ»N¥INJp JSN l* JSN2* 

3 IJSWi VSW pAFSNpFSMpTSWpNSMpSMNOpRHOSN 
COMMON/CSDnT/N¥NpN¥SlpN¥S2ptSnOT* SSOnTpNSOOT* AO* ARCONN* AAAp 990* FN< 

IpGO*NPART»CRARTI2)*FRACPI2)*RN0P» ARC0NS*PREXPS»ALPNA*AAS»9BS*0MR 
2* L¥N*( ¥51*L¥S2pCINCP»T1NCP»FUT0T 
COMMON/CRAO/IRAOpSRAO 

A[i««r)«i/CF(lUP/PRFXP3pARC0N3*CR3*PREXP4*ARCnN4pCR4pAAl*BBl*C€l* 

1 AA2* R8?pCC2p AA3*RA3*rC3» AA4*B»i4»CC4pRATI09*RAT10ft*RAT107* 

2 RATTnOpR T!n4*RATaiO*RATOll»RATni2#NCNpNH2*’YC2H'.*L¥CH*i¥CMl*L¥N21 

coMroMFCnn/FexUR?) 

t) tPFNR ;C|N GFNR(OOO) pSUFU(900)p SPFy(90O)pE0R2( 1R2) 
otMFNs;rN siiCH<900)*SFCH(900) 

AFWARF of FQUI¥ALEHCC statenfnts 

FOilIVAlFhrf ifFNRM >*OOa)»*(SyFUa).OY(l) )*(3PFU<1»*0N(1) ) 


CONFft 

10 

COHFB 

11 

cypMQN 

2 

COMMON 

3 

CONNON 

A 

CONNON 

9 

NOX 

2 

NOX 

3 

NOX 

A 

4STEP 

3 

NOX 

6 

NOX 

T 

NOX 

8 

NOX 

9 

NOX 

10 

NOX 

11 

ASTER 

A 

4STEP 

9 

4STEP 

6 

4STEM 

T 

NQX 

12 

COMMON 

« 

ASTER 

e 

ASTER 

9 

COHNON 

9 

COMMON 

10 

COMMON 

11 

ASTER 

10 

COMMON 

13 

ASTER 

11 

NOX 

lA 

NOX 

17 

COMMON 

19 

COMMON 

16 

COMMON 

17 

COMMON 

IB 

ASTER 

12 

C0M6EN 

2 

COMGEN 

3 

C0M6EN 

A 

ASTER 

13 

CQM6EN 

6 

ASTER 

lA 

COMGEN 

6 

COMGEN 

9 

COMGFN 

10 

COMGEN 

11 

COMGEN 

12 

COMGEN 

13 

cdngen 

lA 

COMGFN 

19 

COMGEN 

16 

SOOT 

A 

SOOT 

9 

SOOT 

10 

SOOT 

11 

ASTER 

19 

ASTIR 

16 

ASTfR 

17 

NOX 

1A6 

NOX 

lAT 

ASTIR 

17P 

AU 

7 

AU 

P 


1H4 


OHiGJhAL PAGi: iS 
OF POOR O'JAUTY 




FNTftr DFNS 

c PHTRY OtNS IS USfO TO CAICULATE TE«<f ERATUIIE ANO DENSITY. 

C 

RELAKA-l.-RElAXINRHO) 

KONTtn-E 

IF( ISTER.Ea.lRFS>RQNTRO-l 
NVHR«T 

C— —FNTMAIPY, 

on lOAO K«S*NR1 
DO 1040 J*1*NR1 
I(JN«KN(K|4J|IN) 
on 1040 I«1.LR1 
IR-RJN4I 
tM-lR4NVNINVH> 

LMR*ti>4NVn(RVNf I 
1040 FaRHH-FURNI 

IPf ISOlVFtlVEUI.EO.OlOO TO 1034 
GO TO 0034.1044«1034t* NQDEN 
1044 no 1090 K-1*NR1 
CALCULATE CAS TFRRERATURE. 

00 1090 J*2*N 

IS*tMLlUf4> 

IE>mOU*4f 
no 1090 I-IS.IE 

L»«RJN4l 

t4H4«LR4NVR(NVHf I 
LRPU*LR4NVN(NVFU> 

LRC0-LR4NVMNVC0) 

L4CH«LR4NVMNVCH) 

LRH2*LR«NVI<(RVHE) 

LRFUnY*LR4HV»<NVFU0Xl 

T«TE»*4<L4* 

F(L»FUt*AMNllF(LRFU).F(LRFUOxn 

PUA*PUMUOXI-RURFUt 

FL4C02*NC02«(CXR*FU«/WFU-CXX4PILRCHI/NCt4>FILFC0»/WC01 

Ft4QR-RATtri4FILRFUl4RATt034F(LRCOt4RATI02-(NATt(1l4ftATt02l* 

1 F»LFF0OX»4RAT1094F<LPCHl4RATIO4*F«LFHE» 

FLFn«-ANAXl<FlPOX.O«) 

FLFH2n«0»94MH204(HVY4FU9/MFU«RATI07*FILRCHI>Fn.fH2H 

FlFN2»1.0-FHFFU*-FLPC02-PILRC0»-ElP0X-HPMfO-F<LPCHI-F4LFH2l 

F$(LP*tOFU)"F4LFFUt 

FS(LF.I0r?l-AFtN14FLF0X*RATI02l 

FS(LP.I0N2»-AFAXia.E-19tFLFN2l 

FS<lF»!OCr»-FUFCn» 

«'5iKF»I0CH)*FfLPC«l 

F$(LF.I0h2I*F(LFH2» 

F5<LF»10W20l-PLF«2n 

FS<LF*IDC0tl*AN«im,F.lSfFLFC02) 

tt«FS«4 

NS1"I0FU 

NS2-IDC02 

TF*T 

TRINV«1.0O0/TR 

nn 1011 ii-NSi*NS 2 
1011 S2ITT»*FSUP*tn/‘;HWUn 
CALL HCFS 

HFt«HSU440t(ICCN*TR 
CF|«CFSU"*UH|COH 
T»TE«FaF|t tFILFHF)-HFn/CF| 

TF«4|tFt-(l.-RELAXINVH»l«TENF(LFl4RELAX(NVm*T 

FHf.FUFFOOXl/FSTniC 

TnA*«ArOFFM»4FHl4<4COFF»2l4FMI*UCOEF«3»4FMI*ACOIF4 4»H 


AU 

9 

AU 

10 

CONHENT 

T2 

COMMENT 

73 

AU 

11 

AU 

12 

NASAX 

29 

AU 

17 

CONMENT 

74 

AU 

19 

AU 

19 

AU 

20 

AU 

21 

AU 

22 

AU 

23 

AU 

24 

AU 

29 

NOR 

149 

AU 

20 

AU 

27 

COMMENT 

79 

AU 

29 

AU 

29 

AU 

30 

AU 

31 

AU 

32 

AU 

33 

AU 

34 

AU 

33 

AU 

36 

4STEF 

179 

4STEP 

190 

AU 

37 

AU 

39 

NOX 

149 

AU 

39 

4STEF 

191 

AU 

41 

4STIF 

192 

AU 

43 

4STEF 

193 

4STEF 

104 

NOX 

190 

NOX 

191 

NOX 

192 

NOX 

193 

4STEF 

199 

4ST6F 

196 

NOX 

194 

NOX 

199 

NOX 

196 

NOX 

197 

NOR 

190 

NOX 

199 

«0X 

160 

NOX 

161 

NOX 

162 

NOR 

163 

NOX 

164 

NOX 

169 

AU 

90 

AU 

9), 

AU 

92 

AU 

93 


185 




ORIGINAL PAQi: rs 
OF Poor QUAury 


DU»t>V*DW*f 

IS PHI* DU 
PP*OU»OV 


IS HFU* DV IS NCO 


THAI(-AHAIlinHAR*2O00*) 

TFHPUP»«AH1H1CTFHACLP»»THAK» 

1Q<I0 TC<4A(lA)>AHAl(ltTEHPUP>*I00.> 

C MFPF DU IS 0» D¥ IS V* DM IS ¥ 

103A RFHINO NTF1 
•EAD IHTFJJ 
104B AFAO (NTFl) 

C HERE PR 

READ (NTPII 
RFAO(NTPI) 

REAO(NTP1IOM*P 
•EHIHO HTPl 
PEADCNTPnU»V*¥ 

CALCULATE WALL TEMPERATURE* 
nn 1092 F-2*H 
on 1098 I*2*L 

tf(!KINn*K).E0.2.0R.IKlN(l»K»*E0«3l«O TO 1094 

J-JWLn«l*4)-l 

lP*l*JMJ)*RPfRI 

LPRT«IP«NVP(91 

VEC>0.29P((U(LPI«U{LPPinM24lri(LPlPN(LPPNINjn«*2I 

HTC-CFRPRHOILPI*CPPSORTIVECt 

TFMP(L»^Nn-TSnLVE<TEHPUPpNn»TEnPaP)»FUPRV)fHTC*SieNA*EHI* 

1 TTPAOt 

r 

1094 IF(IKIH<l*RI.E0.1*aR.IKlHn*K>.E0*3»00 TO 1090 
IMIDW.FO.OIGC TO 1090 
J«iWLKI*4Ul 
LP't4JPm*«M(K> 

LPRT«lP*NVPm 

VEC«0.29*«(U(LP)«U(LPP1)I**2PINCLP|PW(LPPN1NJI)4P2) 

HTC«CFR*RHO(LP>PCPPSORTf¥EC> 

TEMP(lP>Nn*TS0LVf(TEMP(LP~NTi>TENP<LPt*PUPRYt*HTC»SI6nAtEl1t* 

1 ITRADi 
1998 continue 

0(1 109? J«2tP 

TF( JKTN(J*K>.EO*1I60 TO 1099 

LP-IWLI(J*4)PJMm«KN(RI 

IPR»-IP*P¥P(10I 

VEC«0.29PMVUP|PV(LP«Nni**2»lWlLPlPH(LP*NINjnP*2) 

HTC-CFR*RM0(LP»*CPPS0RT«¥EC» 

TENP(lE-t»>TSCLVE<TEMp(LP-l>*TEHP(LPI*F(lPPX»»HTC*$IGnA*EMI*ITRAOt 
1094 TF( J*6T.JWCI«AND.J*LT.4W00I60 TO 1092 
I.P-tWL0<J*4t4JMUUKN(M 
LPRV*IP«NVP(1C> 

VEC-0.29PMV(LP»4V(LP4NlMPP24(N<LPtPM<LPPNlNAII*42l 
HTi>CFRPPM(1«LP»4CPPS0RT(WEC » 

TFNP(LP4l)-TSClVE(TENP(iP4|>>TEnP(LP)tF(LPR«l*HTC*SUMA»EMl*ITPAOI 
1032 CONTINUE 

PEWINO NTPl 
REArMNTPllU»V*W»P 
IM tS0lVE(LVEUl.F0.9>Cn TO 1200 
GO TO <10A«»I0(>2*1064>* NOOEN 
1040 OP tOM ««1»FP} 

C— — OENSITT-CONSTANT. N0DIN»1. 

00 1041 A-ltJ'Pl 
RJH>KNnO«iN( 

IS-IWl I(i«9l 
IE«TWIC(A*9I 
no 10M l*ISilF 
LP«RJH*I 
PMrm Pl-DfH 
1061 C"NTTNUf 
fin TO 1200 

IHf) 


AU 

94 

AU 

99 

AU 

96 

AU 

97 

AU 

98 

AU 

99 

AU 

60 

AU 

61 

AU 

62 

RAD 

32 

RAO 

33 

AU 

63 

RAD 

34 

COMRENT 

76 

RAD 

39 

RAD 

36 

RAO 

37 

RAO 

30 

RAD 

39 

RAO 

40 

RAO 

41 

RAO 

42 

RAD 

43 

RAD 

4A 

FEB2 

2 

RAO 

46 

RAO 

47 

RAD 

48 

RAD 

49 

RAD 

90 

RAO 

SI 

RAO 

92 

RAO 

93 

RAO 

94 

RAO 

99 

RAO 

96 

RAO 

97 

RAO 

98 

RAO 

99 

RAO 

60 

RAC 

61 

RAO 

62 

RAO 

63 

RAO 

64 

RAD 

69 

RAO 

66 

RAD 

67 

RAD 

68 

RAO 

69 

RAO 

70 

RAO 

71 

•4DR 

166 

AU 

69 

AU 

6f 

CQMNEN1 

77 

AU 

67 

AU 

68 

AU 

69 

AU 

70 

AU 

71 

AU 

72 

AU 

73 

AU 

74 

AU 

71 


A 


(JfVlv.r^AL PACE IS 
OF POOR QUALITY 


106t OQ 1063 H-1*NM 
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AU 

471 


niST«,9#V01FC4*l» 

AU 

472 
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AU 

497 

901 

rOHTTNUI 

AU 

496 


GO TO 9000 

AU 

499 

r SOUOCC TEIMtS FOt FUEl 

AU 

900 

♦on 

rONTINUF 

AU 

901 
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l««CClt*ARAHfN 

r,n TO <ftU»6lPf»H00ER 
911 SQP'SflPl 
00 TO 602 

&1? LPK«LP*NVr(NVP) 
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l-«*TniO*<SUCHKM*SPCH(L*>«P(L»CMH 
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961 CONTINUf 
CO TO 9fl00 
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IE*INLaiJ»NCQTOI 

on toot i«>ts*tF 
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IPNoLPANVOtNVN) 

FUR*FaFFUrX|*FUFFUt 
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VRtf*F(LFFUt/NFU«FLFCO2/ltCa2«F(LRCQI/NCO6FlF0X/W0K«Fl,FH2OFMOt0 
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l/(FllPSIt*FUPS2M 
FR»>RHCPPS«16199/(6.0RENPI 
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TOKAitAiaiTflf 100(01 
RHOO*RHOCaN/tV"IK«TOI 
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Al«UN0STR»FF0nrR*ENRH0)/60 
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CpF?«GO*FHNO 
RF1»S»FI“SPF1*F(LRN» 

»F2(SUF2-SPF2RF(LPK) 

FORNATIflN RATF« 
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1. f mo * • t f ♦ 'I * 

LtFy«lf*N»MHVFU) 

LPCO"l»*NVn(N«CQ) 

lFTF-tf*tlVr<0»Ti) 

lkh*if«nvmn«c>o 

1 FUFfU01I»*«ATia9«Flt»CHI*»ATI06*Fa»H*l 
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lfN»lF*HyMtO>W» 

FUB«FIU*M>OlO*FilAFUI 


HPH?0-0t «*KMf 0* IHtY*FUBF«F«-R ATI i«iett{cH»-F U.FH2 1 
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CMR>FUA*U*0«FATlQlt .a**«h% 
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IF(Fi4StKl*ir«C*0lfNSrK«ENSTAt 

ENSTK»AHINl(ENSTIt»ENKHa/€FS|A) 

EMtTRaAMAIK EdS TR * ENRHORRHOSTR I 
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C-- . — suASieinnAi FORRATtnN rate. 
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00 TP 9000 
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9000 CONTINUF 
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COMMON 
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4 SN»SNwt30>.S20.Sll30]*S?(30l*TK»LADIAB*LOFBUG«LFOUIl*lREACTt 
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CnHMnN/TI(PB/NV«f MV0,Cl*C2*Cn* AM*0IJ1DX4(3. 31*ARFAC»AIFAC» 
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coKNnN/RAo/NVf *siCNA*AesQRtSCArR 

COH«p«/BFACI^A«Cnttl,R«|*Pl»CRl»ARC0Ht»P«EKPtfCR*»H00f* 

co«**ON/ni»nH/fVAPO‘>2>»HTBA»*<FNi»Kom»yam»io<ii»»iPAOi» 
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C01BON/fSOCT/FYN»«l¥ll*HYS2tISOOT»SIO(IT»IIPOOT»AO*ARCONH*AAA»BBltFW 

l.cn,PFABI»0FAFTI2»tFBACFI2t»BM0F*ABC0l«»?BEllPS#»tF,MA»AA8»BB5»l>HB 

2*L¥*l»lBSI»l¥S2»CINCF*TIMCF,FyTOT 

CO<I1QNFCRAO/!F*0»SRAD 

C0**"QM/CF0UBFPREFF3»ARC0H9>CRI*FREXF4»*BCQN4iCB4**Al*BBUCCi* 

1 AA2,(M!2»CC2»AA3»Be3»CCl»AA4»BB4»CCA*BATIO9»»ATI0B»MT10T» 

? RATIOB.RATfllB*l»ATOlO»BATOU»FATOl2»yCH»VIN2»WC2MA»tVCH»lVCHl.tVH21 

(• •• BA *• B« •• •* »• ** •• •• •• •• •• •• ** 

FHTRY GANRAO 
C— — ftiTRV BAFRAO 


IS USED TO CALCULATE THE GAMAS IN THE RAOIATtON 


EOUATIONS, 


IF |NV«EO.L«RT) GO TO 3100 

r>Q 4002 r*i*nfi 
on 4002 j>i>ttFi 

KjN«RN(KMil>( Jl 
T<«TMLIU>4) 
tE*IWLCIJ*4t 
no 4002 t*lS«IE 

(.RaKjMBt 

C.._*_V*LUfS 0? abSORFTION AHO scattering COEFFICIENTS FOR 
r tTRAn« 2 . 

ARSRllF1*ABSCP 
4002 SCTRIIRI-SCATR 

IF(tTRAD*HE*3IGQ TO 4001 

C— — AASORFTfON CCFFFIClENT CALCULATED FROM SUBROUTINE ABSOR 
C (ITRAn-31. 

no 4000 K-2tN 
no 40C0 J«2*R 
K JRt Jl 
IS*tNLIU*4l 
tF>IWLCIJf4) 
on 4000 I-IS>tE 

TS'TFRPliP) 

TS>AMA1I1(TS*3C0»0I 

T$«AMTNl(TS*20O0*0t 

T«TS 

PATH«2.04Y|HPl» 
f BdOT CONCfNTRATlOH. 

SOnTR-T.ORISCCTlILPUSOOTaiLPMFRMOILPWIRHOP^O.RAF-O) 

LBFU"LP*NVB|KVFUt 
LPF*m«»lP + NY**IN¥PUaRl 
LPCO«l P*NVP(NVCO) 

LPCH«LF«NVMNVCHI 

LPM?nLP4NVriNYH2» 

FI.iRoF IlFFUrRI-FILPFU) 
r_..._cn? AND H2C CfNCFNTRAf IONS. 

PlPC0?«WC024CC**4FU4FNFlJ"C***FllPCHMNCH>'FILPC0»/HC0l 
FI »CP?*APA>rintf-?0»FLFC02l 

FlPnY«APAYH0tO.RATlOl»FIL»FU(*RATIO3«FtLFCO»4RATI02 
l-|4AT!ni4RATIC2l*F(LPFH0Kl4RATIOB*FILPCH»4RATI0e4FUFM2M 
FI PHPn*C*4*HH2D* (HYT<*'FUB/NF'>>RAT1 0T4FILFCHI-F IIFM2 I ) 
FIPH 20 .APAY 1 O.f-*0»FlPH2n> 
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01 
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85 

RAO 

86 
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RAD 
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RAO 

P9 

RAD 

90 
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• AO 

92 

RAO 

93 

RAO 

9* 

RAO 
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CONNENT 

112 

RAO 

76 

• AO 

97 

RAO 

90 

RAO 

99 

4STFF 

319 

4STEP 

320 

RAD 

100 

CONNEMI 

113 

4STf» 

321 

RAO 
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RAO 
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VSTEF 

322 

RSTFP 

323 

RAO 
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Fl»N2-1.0-F(t^FUi-FLKat-FR|)CO)-H^ail-FL»HI0-F<LPCHI-f IL^H2> 
Fl»KF.t^«XllO.O*FLFHI» 

VnT«>F(LFFU)/MFU*FlFCa2/MCae«FaP€QI/MCQ«Flfa)l/MO««FlFHtQ/MHtO 
UFLPNt/MNp*FUPCNWMCH«MLftH«IFVHX 
PCnP*PLPC02/l«MIIl*NC0ZI 
P42n"Pl PMtO/( VKt PPMHtO ) 

PC02*AP||tl(PCC>tl.O-PHZai 

FACP-5.97'»I/TS 

P*TH-APIN1(PATH»FACP/PCQ2I 

PATH*APtl«l(PATH*FACP/PH2n) 

CALi APS0Pn(TS*T*PAT»4*SaQfKiPCa2»PH20* ALPHAS I 
ALPHAS •AltIHl<ALPHAS»0.999t 
A6SMLPi—ALI>6(1.0>ALPHA$t/PATH 
AOOO CQNTtNUf 
AOOl CONTtHUE 

CAICIILATF C.APA FOR It-OtRECTtON FLUXt 
no 3000 K>1*HP1 
no SOOG J«ltHPl 

KJHaRP(P)«JP(J| 

IS«IMIMJ*A| 
tE>IWlO(J*A) 
on 300C t>ts«iE 

tP«RJH*I 

6AH(LP)«l.GF(A«SR(LPI«SCT9ILPtl 
3000 CnHTINUE 
00 TO 3300 

CALCULATF GAFA FCP t-OIPECTlPM FLUX* 

3100 no A200 R*1>PP1 
DO 3200 i-l»PPl 

tT>IWLI<J>AI 
tF>TWlOU*A) 
no 3200 I-IS«1F 
lPa«4H«I 

OAMtL»)«l.O/(AnSPILPUSCTRIlP>«L.O/CR(J)»l.E->30>» 

3200 CONTlHUE 
3300 PFTOP* 

C ** *• ** «« *9 •« 9* «* •* ** M ** P* ** *« •* *1 

FNTAT SOPAO 

C •FNTPT SCPAO IS USED TO CALCULATE THE SOURCE TERRS IM THE 

C RAOIATIQN FOUATIItNS. 

C 

IF (HV.EO.IVRM GO TO 300 

C ANO V-OtRECTION FLUXES. 

no 101 J«2»F 
tS»IMLIU.NGOTO) 
tFatVLClJ.PGCtOl 
00 lot I*IS.TE 
Lt 

IP»IIJ*PR(K1 

LPtX-lP*H9P»N9RX» 

lFffY*lP*PVP|MVRT) 

LPP2*LP*H«P(lv9R2| 

lPTf«tP*HVP(H9TE» 

FtPTE-FUPTEI 
Fl»E«StGHAPp| PTEPPA 

SUflIJ1«APSR<tPlPFLPGPSCTR(LP>*(F(lPRX|PPIiPRYlPFIlPR2n/i. 
SF<IU|o-(APSR(LPIpSCTR(LPM 
101 COHTIHOI 
RFTURN 

300 C«HTI«UE 

r— 2-OIPECTlOH FLUX, 

no 301 F«2.N 
Kjn,Nn(Rl.jP< JPLANE) 
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RAO 
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AUR 
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AUR 
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AUR 
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AUR 
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RAO 

123 

AUR 

2T 

AUR 
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AUR 

24 

AUR 
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116 

CORHEHT 
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110 

AUR 

31 

COHHENT 

114 

AUR 
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AUR 

33 

AUR 
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AUR 

39 

AUR 

16 

AUR 

3T 

AUR 

30 

AUR 

39 

AUR 

40 

AUR 

41 

AUR 

42 

AUR 
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RAO 

124 

RAO 

129 

AUR 
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AUR 

4T 

AUR 

40 

CORHIMT 

120 

AUR 

49 

AUR 
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tfalMLIUfLANItNCnTO) 
t(«lWlOUfLANC»N6QTO) 

nn 301 !>is«iF 

LtK-JMKUt 

LMr«Lf«Nvi*(Hvitn 
(,PTF«LP4NVP<H¥Tf ) 
ft»TI«Fa»T6l 
FlffiaS lCHA*FiFTF**A 

sm*'<i«“U(i$»u'')YSCfRaFn 
301 CONTINUE 
•FTURN 
FNO 

• ••••PMOMMmHmm SUBROUTINE SfRRT *♦•♦•••*•♦•*•••••••••••• 

SUBROUTINF FOR AIRTRIR COOl NMICN CRtCULATES THE JJ*ffCTORT 
AMR EVARORATION RATES FOR A FUEL NOZtlE SRRAY* NRITTEN NOV* 13>70 

**ol22RiOM"i;;iM*U"*;”**A*****M*««***RMMMR******«M**A 

CnWNON FO900)*0UI»00».0V«900>.0Mt900»* ... 

1 *MUC 1 SCO 1 • SOOTXl 900) ♦ SOOT* 19001 »FCHI 9001 •FHZl 900) *FSt 900* 1A)» 

1 RMO«900)»¥ISCI900)»A9SRISOO)»SCTRf900l»SU<100l»SRil001* 

1 0RHn0R(9C0>» 

1 MRa00)tA*FC100)»AYRfl001*ATN(100)»AZR«100l» 

2 ArNnoo)*cmoo)»CY<io)»ctu«tooi*CYuao»* 

? CrP<100)*CYRI10)»Dl¥fi(X001*NTRl*MTR2 

1. AKNR(lR?)»A«RMlR2)»ATNRtXR2l» AYRR<10B)iAINRIX91)»AZRRI10EI# 

*01N(|NS IPN*OI 9001* il 9001* Nl 900) »RRI900I»RC 900) *TINR«900) 

DtMENRION 6AR(900) .... 

FOUfVAlEHCE IFU)*UU1 )» CFI 901) »¥<X) ) * IFdOOl )*Nt 1) ) 

EOUt VALENCE CFa901)#PR(l))»<FtZ001)»Pll))» *FIZ90l)*TENR(D) 
EOUtVAllFCE IF<3001)»6AN(1)) 

C0HN0N/CYt/R(3O)*RN*30)»RNV<3O)*YSRIIOI*YSVRt9OI*lRtAX 

CO«RON/eRIOAX|AO)*Y)90)»Z130)»«SCAO)*Y$190)»ZS«90)*RSUIAO)* 

I YSV<30)»ZSVI30)»KOIFIA0)»YOlFI3O)*ZOlFt9O)»FKRIA0) »FXN(40) » 

?. FYR<30)»FYF<3O)»FZR<3O)»FZNIt0)*0T*TINE 

l/CIMOf X/IOCC*!0FU»t0O2»IDN2.l0M2O*I0COZ»I0HX*l0H2*10Nl» I^NOtfONOZ 
1 * 100* 10nK*IHCRS»ILC»UH»INAT»ITER* JJJ»NX»NZ»N3»NA*N6L0e»N0L0BR» 

9/CCHE**I/CRSUl'*MSUN»F0»R“LN*R«AS*R6ASIN»SNINV»TmNV*TlN»lNR6 
4/CPARAF/ASU9l30»3)*E"V»FR*HSUBO*N0e0U6*NS»R4»O0»Ol»O2.O3.OA.RH0FRi 
A SN»SRV)30)»SR0»SH30)*S2) SO)»TR»L A01AB#LOEBUG*lFOUIl»lREACT» 

^OnURLF *RR£ClSlON**C»SON»ENV»ER*FO»MSOBO*MSUN»RA»RRLN*0O»0X» 02*03* 

1 04,R6A5»R«ASIN*RHaFR»SN»5NlNV*8NN»Sl»S2#TF*TMHV»UN»SN0 

Cn«N0N/STER4/REXRi»REXF2*REXR3*REXR4*ERl*IR2*ER3*ERA*CeBUl*CEBU2* 

I CERU3*CEAUA*IIXRX»AEXR2*AEXR9*AIXRA*BEXR1*6EXR2*BEXR3*«EXP4* 

* CFXRl»CEXP2iCFXP3*CE*RA»FUTiFST 

inOlCAl tAO!Ae*lCrNVG*lBEBUC*LlOUlL*LNR«*LREACT»UNIR 

CORHONAINtFl*R*N*iCV*NCV»NCV»lRl*NRl»NRl»NI»HA*NR*N|NJ»N|NJNR*NV* 

1 HNV.NG0T0.«*ISTR»JSTR*KSTR»NVNd9)*RN<30)*|RU0)»tSUR. 

* !3niVE«32)*tPR!NT)39I.TITLEnO*31)*l»T*lSNR*4SNP*RftAX<39)*NP. 

3 l«RM(i*R6AP*!Vl II30*9)*lNL0«30*9)»JNl0l40*9)*4Nlir 5»9)*INEI* 

4 lNF0»Pn.JNM*JVlQ.4VPt»JN0O.10JI»JXIN«IO.3O).IJl|M4O.^^ 
CR9inN/IN(>CX/lPAR»lPRiF*lSTUN.IHC0NR*ITRA0*NVRX»NVRY*NVRZ» JP 

l«Pl A»Nl»L»X»l*0»lNPU0«*LVFU»tWC0*lVH*tVRX»LVRY*LVRl»NVFn2»* 

» 1 jlM4p,|RES*TtUE2»20)*I"AX.JNAX»RNAX*NVC0»FUReC»NV«20#NVCQ2* 

3 NVN?,RVCH*NV)<? 


iPLANE 


n""ON^CROX /lVHl*l*»H2.l VHlf lVNQ*l VN02*L V0»L V0M*IVM20»L VN2*LV02* 
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1 L«C0r»iVFUl«lVCni.NNQX»INOII»irN0X»SN01|*THQX NOX 

CQKMON/THMN/NVN«NWFll*NVaX* ;«VFUOX»NVTI*NODeN»tnHtf STOIC ti(FU»C#» COHMON 
t 6«XCnD>XHGfrNrUNIC0N«fRfTTtNVFAV»TCVLM>TINlM*TiIf»«C0E(>(4l* COMfiON 

X T4tnF»C*MFb*HC0>»HCn*ttPX*MHta.MNt»HYY*CXK*RAn()l*ll«Tta}!* COKHOH 

a »ATfC9tF*T104it4C0*T*N«irN»U COMMON 

COMMnM/CTPMA/l»FMO*ICTOMAtJ*| 48TfM 

CnNNnN/MtSFAMU*DfNf8MAX*SSUN»LASTiM*HTCfKr»CF|t*rMtSM»|imfN» CQNSIN 

1 e«*1YXtTOU1»*TCOfEN|*lt*n|NtllAI>SUM*FNA»M*SOFM* CQMSiN 

> FirFi|,FOFU>TFUEL»WFNI*FtO(40>«TfNTM|4OI*H(4OI»FUnU0l>FU0X<40) • COMfifN 

7 UIN(A0t>TIN(A0)*FUELS(4Olf8EXIT*I8ANIX2«),ifiAM7f2S) 4STCM 

ca<1MaN/TUFn/N«N»MVI)iCl*CttCO>AK*OUtOXJ( »»SI»AMFAf»ALFACf COMCtN 

I MOOFLtMOf )*FRFFI9I)*FJAYUZt*F 4STEM 

COMHaN/AAO/NYE»S|GNA»AO$aRtSCATIt COR8EN 

CO"MON/tFACT/AACaNl*FKFKFI*CMl»AIICONS»MltCKF2tCM2»MDDER COMCfM 

fnMnnN/D»OFl/FVAFa47I.NTM»NFNI»XO(9f*VQm»IQ(9F»Al.FA41»> C0H6FN 

I ATTA{9>*nELTA|A|*THETAl<4t»THeTA«t9l«N$ilSI»kFFmtSNtMSI* C0M6EH 

7 VFUEtm.RFUFL4)»»EVSU(«4F»HEYAF C0N6EN 

CaMHQN/|NJEC/FLONlN»IUINJ«EO)* JUINJtE0ltUINJ(2O)tHUlNJ(20li COM«EN 

1 AUtNJ(t0)*TUtNJ(20)f IVlNJ(20ltJVlNA(20)»RY|N4l201>VINiI20l* COMSEN 

t EVINj<?C)»0«INJi20)*AVlNJ(20)*TVIN2<20l»NUIMJ»M«||IJ*JSNl*4Sll2* COMCEN 

X USMfVSN* AFSWfFSNtTSWtMSWtlNNOiSNOSN C0M6FN 

CnMHnN/CSnnT/N«N,NtfSl»NYS2*TSOOTfSSOOT»NSaOT»Aa*A«CONN*AAAfBBS»FMG SOOT 

1 •ROtMP amt tOFABTI 21 *FBACF( 21 tHHOF* ANCONS »MEXBS»ALFHA*AAS* BBS *OHR SOOT 

2*lVNtlVSlflYS2*CINCFtTINCM*FUTOr SOOT 

common/cbad/imaOvSNad soot 

CnMMQH/CFOUR/FREXF3*ARGON3»CN3*FREXM4»ARCON4»CN4*AAl»BBl*CCI« 4STEF 

1 AA7>BB2>CC2>AA3>MB3»CC3*AA4*eB4*CC4*RAT109*RATI06»NATtaT* 4STE* 

7 BATTnF*AATICB*«AT010*RAT011*BATDX2»WCH»NH|»NC2H4»iVCH*lVCHl*l.VH2X 4STEF 

OIMENSIOH VFCX(3O)*VECYI3O>»VEC2(S0l»0SMO(9)»XMI4Ot*YM<30)»FN<S0) SF 

niMENSION F0(4)*EEl4l*FRACr4T»*MM(7)»MWC0NDt4F»AC0N0;4|»BC0N0l4l SM 
ni»ENSION F«AFUII42t»EYAFV(X92l*EVAFHaB2t»RVECK430»»RVECY(30t* NASAX 

1 RYECM30) NASAX 

REAL MX*Fib<CCNOrMNT SF 

C FEUARE OF EOUIVALENCE STATEMENTS SF 

FOUIVALENCF IE YAFUl 1 1 » AXMKdt » , | FYAFVt X »* AYNtM XI ) SF 

FOUIVAIENCE IEVAFHI1I*A2NK(XII SF 

C 4.4.4.4.4.4«4.4_4-4.4-4-4.«_4_4.4_4.4.4_4.4.4«4« S F 

data OSFn/*F*.N»1.24X.9*2.l7 SF 

OATA PrtEF/>n4.>4X.974»4{i.934*X46.97»4X.026»30.S97»27.34C*23t«BT/ SF 
OATA FRACT>FN/0.»«X4.3»*9>.7*.9»X,tB3.26»XX4.6il2B.6X»XSB.X6 SF 

1 4l90.99tl73.2Xt204.7A/ SF 

OATA ACONOteCGNO»NMCOND/>6.3A2G>3t~6.l9BE-St*A.2B4E«>9t-A.OXE-9 SF 

1 t 9. 3AF-9» A. 91E-9t4466E*9t4423E«9t 90. t 100.4190.4300./ SF 

OATA WG4RMG4Pl4PT2/949.43.14X994A.2Bn0/ SF 

C •••4«***P**PP***«*PPP***PP9*9**P*PPP49P*44*PPPPP4P**P*PP4P««4««*P«99 SF 

c — SOME FPEttMINARTES SF 

IF INFM7.LE.0I RETURN SF 

SCi«.92B3 SF 

FR4..92F3 SP 

OlIM-.l SF 

ULI"*.l SF 

TF-7300. SF 

HFYAP*10ArB.AF(1092.BB-l.BFTFUEL)M.B9 SF 

HFUEL*4.9E47 SF 

tQFQ»1000.Pl.779A.20M<‘.00072*TFUEL> SP 

7SMAll«{MNPn-MlM/FLQATINPl 1/100. SP 

on T f«24n $p 

nC T J*24M SF 

no T f•24l SF 

LFri.I-14 4 J«2)*CNI-2 »aIK-2»*INI-2IF|NJ-«2I SF 

EYAFIIUFCI-O. SF 

FVAPYIl FC 1-0. SF 

FVAFMUFC>*0. SF 

T FYA*M Pn«0. SF 
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SIHAbSINI RETA(HK) I 

SINO-$IN(DFLTA(NNn 

C0SA*C0I<«LFAINN)/2.I 

COSn«COS(BETA(NNM 

CPSD*CCS(DCLTA<NNM 

OTHETA«IMCTA8(NfO-THETAltNMI 

TF IOTNfTA*lT*€*01 ()TH6TA*0THeTA*FTf 
nANS«OTHFTA/<RNSl>l* t 

IF t0THITA.0T«0.9A9FTf 1 OAH«»flTHCTA/EHSt 
TMETA«THFTAl(NNt 

no 10 u>i»Nsi2 

SlHT"SINtTHFTA» 

C0ST-CCS»TMETAI 

THFTA«THETA*CAN6 

IF tTHtTA,ei.PT2) THETA-TMETA-FT* 

¥FCX< Il»«-SIHA*S!NT*C0S0'-C0SA9S1H| 

VECYIIU*$lNA*Ca$T«CO$n*SlNA*SINT9SlNB*SIND~C05A9C0SB9SIN0 
WFCM 11 »-Sl AA9CPST9S1NO-S!NA9SINT9SINB9COSOaCOSA*CO$B*C050 

ilWECX«lU«-SINT9C0Sn 

»VfCtni)*COST9COSO*SlHT9SIHB*SINO 

9VECMIU«CCST9SIH0«S1NT9SINB*C0$0 


10 CPHTfNUF ^*^^****^*..*****-***«.**«.*A**i 

C**********9*****«‘**9**#99*9M99*999999#999*99«»999999Mi99»»WW**' 

C START CALCIIIATIQHS FOR EVAFORATIQN RATES 

nn K'-i: IflfNSl* 

00 1000 !C*l»tin 

UF>VFCxnU*«FUEL<NN| 

VFnVFCYlM t«VFUEl(NN| 

¥F*¥ECMI1199FUEUNN» 

niA.S5M)CFH)91,E“690SN0n«> 

TFU-TFOFL 

ITYRF-1 

OTAQaniA 

C092-0. 

16*MT—10 

IF (tSTER.KE.lCRNTI ftO TO TTAft 

TTA7 FORNAT*Ul«ItI»UF*»10***VF'iilO«»*NF‘»9R#*0$I'»n*#*VST»»9X*‘NST*» 

1 T*«*FIVAF* »10«* *XF»»10X»»TP'»18X#'IF** 

TTAft CfiNTfNUf 

rEVAR«C* 

on n 1*1. i Fi 
nnc-i 


SR 

4T 

IF 

40 

$F 

49 

$9 

SO 

SF 

Si 

SF 

92 

IF 

91 

SF 

94 

SF 

99 

SF 

96 

SF 

97 

SF 

9« 

SF 

99 

SF 

60 

SF 

61 

SF 

62 

SF 

69 

SF 

64 

SF 

69 

SF 

66 

SF 

67 

S* 

6B 

SF 

69 

SF 

70 

SF 

71 

SF 

72 

SF 

71 

$F 

74 

SF 

79 

SF 

76 

SF 

77 

SF 

7B 

SF 

79 

SF 

FO 

SF 

91 

SF 

B2 

SF 

63 

S* 

64 

SF 

09 

SF 

66 

$F 

67 

SF 

66 

SF 

99 

SF 

90 

SF 

91 

SF 

92 

$F 

99 

SF 

94 

SF 

99 

SF 

96 

SF 

97 

SF 

96 

SF 

99 

SF 

100 

SF 

101 

SF 

102 

SF 

109 

SF 

104 

SF 

109 

SF 

106 

SF 

197 

SF 

109 

SF 

109 

SF 

110 
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ff (KOtl«N).r.t.KN<tn GO TO 11 
r»q TO It 
11 CONTINUI 

1* no 11 j-i«i«H 

JIOC-J 

IF (VniNtO.GT.VNUII 60 TO 11 
CO TO 14 
11 CQNTINUf 
14 no 19 K-1»NF1 
kLOC«K 


V - 


IF II0<HH»,6T.t»t<KII GO TO 19 
00 TO 16 
19 CQNTINUF 

14 lF*XQt»IN|*RFUfMNN»MVtCMIi) 
TFoVOIRNMRFUfLINFlIMVECmU 
TF-T0(rtN)*RFUFUNNt«|lveCT(IU/tliat4HAimi*YF» 

C— -- •tOCATIOR OF IHF OROFtiT — — — 

110 CONTINUI 
IOi.O*IlOC 
JPLOaJlOC 
NOLO*KIOC 

C R OROFIFT LOCATION 

IF (KF«CF.ItMUOC>l)«ANO*)IF«LT*XNmaCM 60 TO IT 

00 tt t*l»LFl 

ItOC-I 

IF UF.OT.XFtin 60 TO 22 
60 TO 2T 
22 CONTINUE 

C -—V OROniT LOCATION 

2T IF (YF.6f.YNt2LQC-l>*ANO.TF.LT.TNC2lQCM 60 TO 21 
1)0 24 J»1»FF1 
JLOC<iJ 

IF (YF.GT.YNUI) GO TO 24 
60 It. 21 
24 fflNTINUF 


C ——I OROFLET LOCATION 

21 IF ITF.6F.2N(KLOC>n.AND,tF.LT.IMRlOC>) GO TO 41 
DO 26 N*1*NP1 
KLOC'K 


IF (fF.GTi INIKI) 60 TO 26 
60 TO 4A 
26 CONTINUE 

44 IF CKlCC.GT.l) 60 TO 2R 
NLOC-N 

tf-knfd-tsnall 

26 IP (RL0C*LT*NF1) go TO 61 
KlOC-2 

TF-MlI+TSNAtl 
r ....nttOFLFT NFAR A MALL 
61 INDItaO 

IF (ILCC.GE.IHLK JL0C*4)I GO TO 41 
TlOC-tOLO 

XF*ANAX|l)(F»XN<ILOC~ll*OIA/2«t 

XF»AN|NHXF,RNnLOC>-OIAF2t) 

INDX«1 

41 IF (U0C*LE.IML0(JL0C»4n 60 TO 4T 

IF (JLOC.6T.JN01.ANO.JLnC.LT.JNOO) 60 TO 1000 
I10C«ICLD 

XP-ANAXt(XF»XNttLQC*l)4DtA/t.) 

TF«ANINl(xP*XN(ILnC)-0tA/2.l 


TNnX"2 


47 IF (JLOC.GT.jHLKILnC.AI) GO ?Q 44 
IF (tON.EO.OI GO TO 90 
JLOC-JOLO 


SF 

111 

IF 

112 

IF 

111 

SF 

114 

SF 

119 

SF 

116 

SF 

IIT 

SF 

116 

SF 

116 

SF 

120 

SF 

121 

SF 

122 

SF 

121 

SF 

124 

SF 

129 

SF 

126 

SF 

12T 

SF 

126 

SF 

129 

SF 

110 

SF 

111 

SF 

112 

SF 

111 

SF 

114 

SF 

119 

SF 

116 

SF 

IIT 

SF 

116 

sr 

116 

SF 

140 

SF 

141 

SF 

142 

SF 

141 

SF 

144 

SF 

149 

SF 

146 

SF 

147 

SF 

146 

SF 

149 

SF 

190 

SF 

191 

SF 

192 

SF 

191 

SF 

194 

SF 

199 

SF 

196 

SF 

197 

SF 

196 

SF 

199 

SF 

160 

SF 

161 

SF 

162 

S4 

163 

SF 

164 

SF 

169 

SF 

166 

SF 

16T 

SF 

166 

SF 

169 

SF 

ITO 

SF 

ITl 

$F 

172 

SF 

173 

SF 

1T4 
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rF-AniM CVF>Tft( ilPC»-ftU/2.l Oifl'a;.';;*;. r , ,; - IJ, 

4A !F I JLCC.I-T.JHlQ(I|.OC^An fiO TQ A1 POOR QLY.Li T V 

iLOr-JOlD 

TF«AHA»lltF»VFULOC-l»ADlA/*.» 

VF-AHIM(VF>VMUtaci-PIA/2.) 

tNft)r>A 

C — -CMfCX FOB SLOT^ 

M (F INUfNJ.LF.O) Cn TO A9 
no ia9 ii-i>nuinj 

ju*4utNjtni 

IF (tL0C.F«.IU«Atl0«4l.0C.E«.JU> «D TO 90 
149 CQWTINUf 
49 CQNTtHUF 
60 TO «0 

C HAS MIT SOLID OOUNORT 

90 UOC«ICIO 
JLOC-JOlO 

noc-ttoin 

nF»AF«l,-FEWAP 

ttFaO. 

VF«0* 

VF-0* 

F»«0# 

FY»0. 
f 7«0. 

60 TO 249 

c — — «Ho iouhofties have oeeh hit 

60 COHTTHUF 

LP>KN(KtOC>4JN(JLOC)4UaC 
l»B»LP*l 
ITB*LB4H1 
lT»«ti»*NIHJ 
LBTF«LF*HVMHVTEI 
lBFU0KotB4H«H(NVFU0XI 
c — — — CABfFUl HEBE 

LBFU*IB4HVB<NVFU+3» 

LBC0«tB4HVB(NVC04H 

L**CH»tB4NVft(NVCH» 

L9H2«LP*HVB<I»VH2) 

c — .fpffstbfah bbcpibties 
KOfT-BHOUP) 

TST«F(tPTF» 

IIST*FXPIUOCI*UHPl4PXn(UOCI9UILKPt 

vst-fvpt jLrci4v(iPt4FrM(jLoci9V(irpi 

HST«F7P<KlCC)«MUB|4FTH<KiOC>*UtL7P> 

TA-IWl I(4LCC»4» 

IF (XF.CE.vnBH CO TO 91 

TF (JKIH( JLOC»RtCC),EO.U 60 TO 91 

FAC«HXF'’XBtIO''in/(X(IA).RM|B.l 1)144.14206 

UST-Oi 

VST«VST*FAC 

W$T>VST«F4C 

IF ITNnR*NE.n 60 TO 91 

(IF-UST 

VF-VST 

VFitWS T 

91 tA»TWiai4iQC*4) 

TF (RF.IF.XIIB)) 60 TO 96 
IF IJinC*6T.Jvni*AH0*JLnC«LT«4H0a) 60 TO 96 
FAC«H«B( tfl)-tF)/(XNnR)-K(Ift)) )96,14206 
UST«6. 


SB 

179 

SB 

176 

SB 

177 

SB 

171 

SB 

179 

SB 

160 

SB 

161 

SB 

162 

SB 

IM 

SB 

ld4 

SB 

199 

SB 

166 

SB 

167 

SB 

166 

SB 

169 

SB 

190 

SB 

191 

SB 

192 

SB 

199 

SB 

194 

SB 

199 

SB 

196 

SB 

197 

SB 

196 

SB 

199 

SB 

200 

SB 

201 

SB 

202 

SB 

c } n 

SB 

'04 

SB 

209 

SB 

206 

SB 

207 

SB 

206 

SB 

209 

SB 

210 

SB 

211 

SB 

212 

SB 

213 

SB 

214 

4STEB 

926 

4STIB 

327 

SB 

219 

SB 

216 

SB 

217 

SB 

218 

SB 

219 

SB 

220 

SB 

221 

SB 

222 

SB 

223 

SB 

224 

SB 

229 

SB 

226 

SB 

227 

SB 

226 

SB 

229 

SB 

230 

SB 

231 

SB 

292 

SB 

233 

SB 

234 

SB 

239 

SB 

236 
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VST"VST*F*C 
MST«»IST«f AC 

IF « ltim.KC.Jf> «n to 96 

IIF-UST ’ . 

VF*V9T Oh i'L'-i* 

WF-WST 

96 JAiiWinUflCtA) 

IF ltF.«C.TUI*ll> «a TO 91 *. *n rn 

ff |lK!Km(lC»ia0CI.EQ.l.')*«lKlH<lt0C#KL0C>.60.S» CO TO 9* 

FAC"t (»F-THUCI>FIYIJ9*l)*'tmJ9l)>**.19*C6 

iiST«UST*F*C 

VST-0, 

WST"WST*F«C 

IF nNOX«NE«9) 60 TO 99 

UC*U9T 

WF-VST 

¥F«KST 

9) J9«JKL0<U0C»9I 

}f llKIMnLOOKianSSQlS.ol.IFlHIKOC,^ M TO 9^ 

F*C»HYKU6-1'cYFI/(YKI 49H >-tU«-ll >>**»1C*9C 

USr>UST*F*C 

IFST-0. 

WST«KST*F*C 

IF (INnu.HE.Ai 60 TO 94 

t|P«U9T 

VP»VST 

WP-WST 

IFlIoS lUF > .tT.l*C“30.AW0.AI SCVFI .IT .1*€-IP«400. ACSTOSTI .IT.l.i* 
S!!^5jt!JTlflUHlFFCM»5TloJF(l5cOI*KATIO*-l«4TlE2*»4Tiq 

I FllFFtn«)*KATIQ9*FTtFCH>*ll»TI'14tFUFMt> 

FIF0«*AFA1I1<FIP0K*0.I 
IF ItSTFP.NF.iefHTl 60 TO 7744 

KRITE (6»7749) UF»<JF»yF»OS'r»¥$T*H8T»FE»4P»RF»7FilF 
7749 FORMAT UOE12.4) 

7744 CONTTKUC 

c .^.«oilik6 tefperature of fuel—- 

P0T«R0I4> 

ET>EEt4> 

TF(FEVaR.6E»0*9) 60 TO 20C 
ROT»TAMFE9*P»FR*CT»F0.4I 
ET»TAMFEV4P*FRACT.EE*4> 

?00 Tft«ET4*lC6(PRESS>*PaT 
T1b(TR*TF>/2. 

TF0-4KIN1ITFU»T9> 

C^...nFNSTTY CF LlOOtO FOEl AT T8 

*OP»l.OT6/ei.*tl.OT6/.779-X.I4Tl.-.6T4FEVAP»l 

ROP«1000«*IRDF**20e-»000724TFU> 

C ROLECULAR MEI6MT OF FUEL YAPORS 

HNT«TAP(FEV«PiFRACT>MK*7> 
tT*TARIKMT.PVCOKO»ACOND»4T 

cJ”-;;;rMr!J«!ST;Sm®:2i*lpECiFic heat of fuel vapor$ 

COHOI»1*7244<AT4RTM1) 

IMCPS-1 
KSl«fOFW 
HT^f-IOFU 
TK-Tl 

TKINV-l.OOO/TP 
S2(I0FU>ol.C0e7SMKn0FU> 

CALL MCPS 
rPl»CP$UP*UKtfOH 


SP 

217 

SP 

296 

5P 

296 

SP 

240 

9P 

241 

9P 

242 

9P 

249 

9P 

244 

TP 

249 

SP 

246 

SP 

247 

SP 

246 

SP 

246 

SP 

290 

SP 

291 

SP 

292 

SP 

299 

SP 

294 

SP 

299 

SP 

296 

SP 

297 

SP 

296 

SP 

296 

SP 

260 

SP 

261 

SP 

262 

SP 

269 

SP 

264 

SP 

269 

> NASAX 

92 

NAS AX 

99 

SP 

266 

4STEP 

926 

SP 

266 

SP 

266 

SP 

270 

SP 

271 

SP 

272 

SP 

279 

SP 

274 

SP 

279 

SP 

276 

SP 

277 

SP 

276 

SP 

276 

SP 

2P0 

SP 

261 

SP 

262 

SP 

269 

SP 

264 

SP 

269 

SP 

266 

SP 

267 

SP 

266 

SP 

266 

SP 

260 

NQX 

169 

NQX 

166 

NOX 

167 

NOR 

166 

NOX 

166 

NOX 

200 

NOX 

201 

NOX 

202 
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«00 C0Nni-0.^*CQHDl*0.6*.P64«*SQI(Tai/UU«> 

SF 

202 

C ^FLATIVF VEL* REYNOLOS NO.tORAO COIF AND FORCE C0NRQN6NTS 

SF 

293 

YR«SORt HUF-l»$T »••*♦( WF-VST»**E*UF-NST>*i»?1 

SP 

294 

wis(;o-A«AMF-9*soRTn$T/nn.i 

SP 

299 

•El -tnsTAVRADt A/VISCO 

SP 

29ft 

•REI-SORTIREIt 

SP 

297 

cot*E*r 

SF 

290 

IF (REI*fiT.2<.16*AND.REl.LE.eO.I C0S*27«/REI**.aA 

SF 

299 

IF (RFI.eT.FO**ANn*REI.ir.lOOOO«> CDS"«2T1AREI**«21T 

SF 

300 

Cni-ANA)atCD$F2.«C0$Ml.ABEEn 

S» 

301 

rni«S-C01*3*lA)9R/A**0IA**2/2«*R0ST 

SP 

302 

i)M«AtA0tA**3«ROF/6* 

SP 

303 

F«-C0NS«YF*(UST-UF) 

NASAX 

34 

FY«C0NS*VR*(VST-VF)4PLAXN1*DN*NF«NF/RUIQC) 

NASAX 

39 

•=r*C0N5*VR*lN$T<-MF|-PLAXNI*0NFYF*WF/R( JiOC) 

NASAX 

36 

YFIJ«S0RT(UFM2*YF*«*(IF**2I 

SP 

307 

FAC«AM<xin*0*29*/IVR«VR*l«F»20ll 

SP 

300 

DTn*ULlN«VFU*OK«FACFIABS(FXUl*E*30t 

SP 

309 

PT^-UlIFAYFyRORPFAC/IARSIFYlfl.E-SO* 

SP 

310 

0TI9»ULIM*VFUPDN«FAC/<A6SIFZI«1.E-30I 

SP 

311 

OTlA«0t|l*7(C0t<2*l.E"3O) 

SP 

312 

OTI9-R9IIL0C»MAAS<UF)fl.E-2O) 

SF 

313 

0TtA«YS(iLOC)/(AP$(VF>*l.E*2O) 

SP 

314 

0TI7-R< Jl0Ct*FSfXLaCtF(ASS<WFI«l>E-20l 

SP 

319 

OTI*ANINl(Dm»OTI2»DTI3*DTt4»OT19»OTI6»OTI7> 

SF 

316 

CONS*DF/OTI 

SF 

317 

C— — weloCIIY ANfl LOCATION OF THE OROPUT 

SF 

no 

UF*)«11F 

SF 

319 

YPn»WF 

SF 

320 

WFO-WF 

SF 

321 

uf*ufafk/cons 

SF 

322 

VF«VF*FY/C0NS 

SP 

323 

mf-nfafz/cchs 

SP 

324 

IR niFOtCT.USTi UF«ANAXl(UF»U$T»«OOn 

s* 

329 

IF lOFO.LT.UST) UFaANINl(UF»USr«.001> 

SP 

326 

IF (VPn.Ct.VSTI VF»ANAVl(VF»VST«*OOn 

SP 

327 

IF («FC*IT.YST» VFaAMINl(VF»VST«.001) 

SP 

329 

IF (WFO.GT.HSTI HF-ANAXl(HP»H$T-.O0n 

SP 

329 

IF (HFC.LT.HST) MP«AMIn1(HF»HST4.001) 

SP 

330 

t)»«.9*(Uf + IIF0)*0TI 

SP 

331 

OY«.9*(¥F4VFO)*OTt 

s* 

332 

07«.9*(HF4HF0)*0TI 

SP 

333 

VF.-XF4PX 

SP 

334 

FF.YF40Y 

SF 

339 

ZF»ZF407/R( JLCC) 

SF 

336 

IF (TFU.GE.TR) ITVPE-2 

SP 

397 

fiO TO (10P.19R). ITYPF 

SP 

339 
X to 

C HEATING OROFLET ***""^*‘■*■*****1*111"'^***"""**"""""""*""' 


J 9 Y 

f ...-heat transfer 

SP 

940 

lEA HT.CQNDl«(2.t.6RPR3RSREI)F0IA 

SP 

341 

4S«*I*0IA*DIA 

s* 

342 

onnT>ASRHT4(TST>TFU) 

SF 

343 

rPLF-AA0.l4*.l3TZ*TFW 

SF 

344 

OTF«OTI#OOOT/ON/CPLF 

SF 

369 

TFU»TFU*OTF 

SF 

346 

GO TO lie 

SF 

tR 

947 

r.....M«XS TRANSFER NUNRER 

SF 

0 

349 

leo tf te(iPfocxi-FStOlC) 210.209.201 . 

SF 

990 

•et nEF«AHAXl(CPlR(TST-rR)/HEVAP.O.) 

SF 

191 

GO TO 219 

SF 

392 

*09 AFE-FLROX/RATlOl 

SF 

393 

GO Tn 219 

SF 

994 

210 AFF-(F(Rr**HFOEL /RATI014ANAK1 (CNIRITST'^TR) .0. ) 1/HEVAP 

SP 

399 


210 
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211 »ATF«8./H0F*CQN01/CPl**tO6(l«*BeCI*ll««O»tmSKfl*SCIl 
fUACTTON F«AF0B*Tfn 
COM2*l.f/*ClFO/OI*0«*MI»Of*OIAMATf 
l>F»Af«C0H2*Dll 
24« FFVA»*<Ft«*F4DCVAF 

IF (FFVAF.LT.1,01 fiO TO X90 
OF»AF«OtVAF-FFVAF*l, 

FFVAA-l. 

C -^.-NEU OROHET OIABITE* 

290 AFn-niAROtA-BATFFOTI 

IF UH6*Ct.0*0l CO TO 26F 
OFVAF«OI¥AF4l.-F|VAF 
PF¥AF«1*0 
CiQ TO 29t 
262 0TA>90llTt AREI 

C fuel EVAFOBATIQH FIOM SATE 

292 ANT-OEVAFABMFSNG 

t FC»lirC-l*<4t0C-2l6H*l“2**<M.0C-2l*ilt!-*l*IN4-2» 
e¥AF(lFC»-E¥AML2C»*A«T 
FVAFU(IFCI-FVAPUU2CI4ANT«UF 
FWA»V<L2C*"€¥A2V(L2C»*A(1T*¥F 
F VAFW KFC ) ■FVAFMURC l+A'^T^MF 

«00 IF (FE¥Af«lT.0.9«t 60 TO 110 
1000 CONTINUE 
2900 CONTINUE 

C ••«f*«««***«*9««*«**««***6***6*****6«666666666**6666Mi 

( .M... $TQKE NOFENTUF DATA ON TAFIA 
RFNtNO NTFA 
00 1100 K-2*N 
00 1110 J-2tF 

KJC*CK>2|A(NI>21*|NJ-2l4(Jo2«*tNI-2l 
00 1110 I-3>L 
UJ«U-2>AIN|-2MCI-1» 
t»c«KJC4n-n 
1«NC»IFC-1 

FV$(l(ll2l«FXN(t-ll«EVAFUUIINC)*2XF(ll6fVAFUUKl 
IF (T.FO.ai E¥$uaiJ»*F¥SUUUlAFXFm6|¥AFUUI(«C» 

IF II.EQ.Lt E*SU<LlJ»-eVSU«LIJ»4FKNa»*E¥AFU«tFC> 

1110 CONTINUE 

WRITE (NTRA) EVSU 
1100 CONTINUE 

DO 1200 R-2»N 
00 1210 J>3»N 

KJC««K"2»AIWT-2»R«NJ-2»*(4-2IA«NI-f> 

00 1210 I«2>1 
m-t j.2iAiNi-2)4n«i> 
tRC*RJCAM-l» 

ITNC«IRC-«NI-2I 

EVTU(llJI«FTNU-llA6¥ARVUTNCI*FTRUI*IVAR»tlRCI 
IF U*E0«3) f¥SUaiJI-E¥SUIlIJ»*FTFm*E¥AR<tTNCl 
IF U.FO.FI FV5UUlJ)"EVSUUUl4FTniN)*E¥ARWIL2Cl 
mo CONTINUE 

WRITE INTRAI EV3U 
IROO CONTINUE 

00 1300 K*3»NR1 
no 1310 4*2*0 

R 4C ■ < K*<2 1 • ( N t-2 1 A IN 4-2 1 * U~2 1 R< NI-2 1 
on 1310 1*2*1 
lU«C4-2t*IN|-2l4ei-l» 

IRC-R4C4U-1I 
LINC-LRC-tN|-21*«N4-2l 
E»3MllI4l«ErN<N-l»*E»ARWHf«Cl 
IF (R.FO.NRlt 60 TO 1306 
f ¥3UUI41-I¥SUHIJ»4F2Rn»*A|¥ARWURC» 


SR 

ISO 

SR 

197 

SR 

39B 
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IF (NT4«.6T*0I 60 TO 9 
TA9*0.C 
OETUtN 

Fal* 

IF (XX(lt«GT*XR(2lt F**F 
on 10 J-l.NTAN 
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4 LfNfR.fpNIJ.LCOHVfi 

nnilRlE RRECISION CFSUH.ENH.ER.FO.NSURO.HSUN»RA.RRLN.OO»01»02»03» 
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1 HNV»N«nTn>N*ISTA»JSTR»K 4 TR*(tvn(t 9 l*KH(Kt*iP|»Otf ISTFP* 4 STFP 
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r XDARAXKTXtAlXI 
rxuPaALx 

94 AX»(1 tJ»*TX-AlX 
CX»TX4AU 

OtYR(Lt4)*DIV6(L14l4CXUP-CXU 

CXI»"C««P 

ARf A-P9W(X)4XS<II*P9( J41I 
IF (J.EO.PAXt 60 TO 99 
AlY>*294(PHn(LP»4RHn(LTPn*VUTP|PAREA 
AtVl..294(RHD(lPn>4RH0(LTPlM*VUYPlt*AXEA 


ST 

919 

ST 

920 

ST 

921 

ST 

922 

ST 

921 

ST 

924 

ST 

929 

ST 

926 

ST 

927 

ST 

920 

ST 

929 

ST 

990 

ST 

911 

ST 

932 

ST 

933 

ST 

934 

ST 

9SS 

ST 

936 

ST 

937 

ST 

930 

ST 

939 

ST 

94Q 

ST 

941 

ST 

942 

ST 

943 

ST 

944 

ST 

94S 

ST 

94ft 

ST 

947 

ST 

940 

ST 

949 

ST 

990 

ST 

991 

ST 

992 

ST 

993 

ST 

994 

TT 

999 

ST 

99ft 

ST 

997 

ST 

990 

ST 

999 

ST 

960 

ST 

9ftl 

ST 

9ft2 

ST 

963 

ST 

964 

ST 

969 

ST 

966 

S” 

967 

ST 

960 

ST 

969 

ST 

970 

ST 

971 

ST 

972 

ST 

973 

ST 

974 

ST 

979 

ST 

9 76 

ST 

977 

ST 

170 

ST 

979 

ST 

900 

ST 

901 

ST 

9«2 


■m 


OF PO'j.^ *TY 

ALV*.9«ULV*Ami 

TY«» *9* <fi*hciM*8*mi»n*eArt<mi »♦«•«< itHM*A»EA/Yon=u*ii 

TY«A»»AAl(TV#AAS<ALrM 
nYI|A-t.*ALY 
60 TO 96 

99 AIT»6H0UY9)*YM.YAI«AAEA 
AlTl«RHan.Ym6YliYAll*AREA 
ALY-.9*UlY*AlYn 
nuT-.9#Yoif<j»n 

TF <J.(F«.F* OI$T»YOIFIFF1» 
TY*.9*(6AF<LYF»*CA*ULYfin*A«fcA/0I$T 
rY"ANAKl(TY»AlYI 
CYUF-ALY 

96 AYF<LIJ|iTV-ALY 
CY(f »«TY»AIY 

OIVGUIJJ*0!V«U1J**CYUF-CYO(I» 

CYUfll-CYUF 
AR9A«XSm*YS(JI 
OENSTVaRHQUFt 
tF<K«E6*MFll DENSTY-RHOfll4«NIN4) 

IF (K*EO«HFtl NlZF-M(Ll.:«E*NlNJt 
IF(K.LT.NPl) MLZF«H(L2PI 

AlZ«nENSTY*APEA*(FZP|KI*MLZP«FZmKI*W(LPn 

ALZP>FZP<KIAALZ 

ALZM-FZF(K)PAIZ 

rZ«6A>tUPt*AREA*TZFAC/(ZS(K)*«(it t 
CZUP-ALZ 

TZ<AN««1ITZ*ALZP» 

T7«ANAKZ<TZ>-AIIP| 

AZP(LIAI*TZ-ALZP 

CZ(L1JI-TZ*ALZP 

0rtf6(LIA»«DtV6ILlJI»CZUP-CZUIltit 

cz*mij»«czup 

VQl*Y9( n*Y$RUMZStMKt 
lT1*LP-HtNJ 
99 ROT'O. 

94Z OTVGI(.IJt>AHA)(l<ROT*01V6(ltin 
OM(lPI-Vai/ZO!F(Kt/RU> 

TF <H.P«,NP1) OU(LP)-OW(LP>*ZniFIKI/ZSMtX> 

SlMLt J»"SU<LlJl*VnL* 0 WUP»*«PtLZ«»-F(LF*l* 01 Y 61 tlJTP»(CLF» 
SPUtJJ-SP(llJ)*Y0t-01WSUlJ» 

TFtTPlAX.EO.lieO TO 92 

RyAV-0,129*<flHO<LPl*«HOaP-HlMJH*lY(tPUYftP-HlN4l*YUP*MII 

l4>V(LP-NtNJ«Nni*V0LZR(4) 

IFCRVAV. IT. 0*0160 TO 97 
SPtLI Jt« 5 P«lIJ*-mV 
60 TO 92 

97 SI»LI JI-SUat 4 )-«WAy*RtLPI 
92 CONTINUE 

C—— SOURCE TERN NOOtFICATIONS - ROUNOARY CONDITIONS. 

CALI SCNCD 

r« -SniVF ftntte-pifffrehce equations in sqlyfi and solvez* 

CALI SOIVEI 
901 continue 
CALL SCLVE2 
902 CONTINUE 

CALL VELNOD 

f PRESSURE PERTAIATION EQUATION 

N60T0-A 

IFflSOLVEtAH AOS.602.60S 
602 lF»NnonSTEP»lSOLYFUm 602«606*602 
606 CONTINUE 

nri 6 Q 9 LP- 1 .NIN 4 NR 
609 6 F»L*)- 0.0 


ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

NASAX 

NASAX 

NASAX 

NASAX 

NASAX 

NASAX 

NASAX 

ST 

CONNENT 

ST 

CONNENT 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 

ST 


9RI 

906 

909 

906 

907 
900 
904 
900 

941 

942 
991 
946 
991 ; 

996 

997 
990 
999 
600 
601 
602 
603 
606 

605 

606 
607 
600 

609 

610 
611 
ol2 
613 
616 
619 
616 
617 
610 

619 

620 
621 
622 
623 

37 

30 

39 

60 

.1 

62 

63 

626 

163 

627 

166 

620 

629 

630 

631 

632 

633 
636 
639 
636 
617 
630 
639 


223 


ORIGINAI, PAP? IS 
OF POOK Q'J'V ITY 


ISTH-2 
JU*«7 
»ST»«2 

Mon rflNTiNuf 

CHCUIATF CnNTINUITV EKMQRSi 

nn 60 j* 2 *p 

TS*IWLI(J*NS0T0I 
ie*!Mtr<4,tjRoiP> 
no 60 lolSdE 

L*>JP( J|*1 
U’6«Lf«NIN4 

tHOA*tHO(ipt«)is(n«vsi ji 
CrUUP>-P’ 0A6MU7R) 

60 C7((»t«0HP««0M(irP| 

Of) 601 K>2»N 

00 M I«?.l 
4»JMLI(1»N60T0)«1 

1 6>K<)(t()«4N|4«l)»t 
IVP-IP4NI 

RHr^*aRHOtlPt«IS(K|*KS(II*RlMJ) 
frUtTI-RHOARVCLVP) 

6) CY(I) •RHOARCVUVP) 

00 6P J«?*N 
KjN-Rn(tt)4jP(ii 
T$-1UL1U»NC0T0I 
tF"HflO(J»KGCTO) 

IR«KJM4IS>1 
tKP»LP*l 

RKr)A-RHn(lP)*YSR|J)#7StK) 
ri(U-RHQA*U(lRPI 
CV«RMOA*OU(IXP| 
on 6? 1*IS.IE 
NAV>JHLOMfR60TQI-l 

LR*KJN*I 
1«R>IR*1 
|.rR>lR4KI 
(,?R.|.R*.NtNJ 
A«"ftTJ)»CP 
AVN(LIJI-Cvni 
670UI 

IP (I.fO.m CO TO 63 
RHqA<0*9*(R»«0(LPl4R»<0U*Pt)*VSRO)*rSIK) 
r,0 TO 66 

63 RHOA-itMntLXRtRrSRUI^IStlO 
64 CX-RHOPROUIIXPI 

cxu»«RHn**ucixp) 

xuiii4i>rxu-cxup 

rxu-CRUP 

*X»HIJ»-CX 

TP (JtfO.NAP) 60 TO 69 

RHOA-O.9R|RHCUP|4RH0tLrPH6IS(K»*X$m*RM J41I 
on TO 66 

69 RHaA*RH0UVPMrS(Rt«XSm*R«Mj4lt 
CTm»PHOA*OV(LTP» 
cv)tp*flH0A4v(ir») 

XM(lTJ)«3UUt4t4CTUU)*CVUP 
f YIMD-CTUP 
ATRUIJI*CT(ft 
IPfK.Pfi.6l 60 TO 67 

RHOA«0.9«(RHO(LP|4RHOILTP)»*XS(n6rSU» 

60 TO 6P 

67 *HOA*KHOKrp|RllSfT|*VSU) 


ST 

660 

ST 

661 

ST 

662 

ST 

669 

ST 

666 

CONNCNT 

169 

ST 

669 

ST 

666 

ST 

667 

ST 

666 

ST 

664 

ST 

690 

ST 

691 

ST 

692 

ST 

693 

ST 

696 

ST 

699 

ST 

696 

ST 

697 

ST 

690 

ST 

694 

ST 

660 

ST 

661 

ST 

662 

ST 

663 

ST 

666 

ST 

669 

ST 

666 

ST 

667 

ST 

666 

ST 

664 

ST 

670 

ST 

671 

ST 

672 

ST 

673 

ST 

676 

ST 

679 

ST 

676 

ST 

677 

ST 

670 

ST 

674 

ST 

660 

ST 

601 

ST 

602 

ST 

603 

ST 

606 

ST 

609 

ST 

606 

ST 

607 

ST 

606 

ST 

604 

ST 

640 

ST 

641 

ST 

642 

ST 

643 

ST 

646 

ST 

649 

ST 

646 

ST 

647 

ST 

640 

ST 

644 

ST 

700 

ST 

701 

ST 

702 


ORIGINAL PAL'c is 
OF POOR QUALITY 


A'’ cniiji-ffHo«*oN(irp) QUALIT 

cru»»»Ha«*iMirPi 

A* CnNTINUF 

' mf'Scro!" "»»"'«»>»« - •<««»«» 

' JSrSJue"'*"""""" '•"”!«« <« mvtl AKD SOtVEt. 

AQl CQ*«Ttl«UE 

CAIL ^OLVFF 
602 CnttTIMUF 

CQHt '^JJf^TO^CMRECT VElOCmtS «ND MESSURES 

DO 620 K*2>NR1 
00 620 J«2»NF1 
RJR>KN|R|*JR(J) 

tS*IHll|j,R 60 TC> 

rF*tWL0(J»l«60T0)*l 

00 620 I-TSpIF 

16 *kJn*i 

LVR«LR>1 

ir<t>LR*NT 

60 TO (621»622»*1R«R 

or 630 K-2*l« 

00 633 i» 2 tP 

IS-lMlllJfhOCTOI 
IF>IW1C(J«M60T0» 
nn 6S0 
lR*«JH4t 

»(l2)-P(lR|«RR(it|4RELAX<NR» 

60 TO (631»A32)»TRM 
632 •(lRt«Rtl*l-RLFREF 
6 It rORTlROF 
610 PP(LPI»0. 

r— «— CYCttr ROUPOART CCNOirtOHS, 
on 661 J*1*RRJ 

on 66t I-I»IPJ 
LPN-I«46(J>«RP(NPII 
IP2-T*JP( J|4RR(2| 

P(tPNt-PUP2| 

6Al COlTIPUf 
AftTINO NTP2 
WRITE «NTP2| 0*V.N.P 

on TOO NVS.RRV TARMItES 

IC0NV6»0 

NITER«ITPOK 

IF»nTFP4l,HF,i.*STEP>HlTFR»| 

|P|NW.KE.tVHnNlTFft«l 
00 706 tTR«X*hITFR 

TP (Nv.NF.ivN) Fc TO no 

RFWtN'» NTPl 
PP*ft (NTPl) 




P IS OISSIPAYION 


ORIGINAL PACE 13 
OF POOR QUALITY 


r HfPE PP IS K6» 

PPAft (KTPII PP*P 
710 IF (MV.PE.LVfUnRI GO TO 714 

C MPDF PP 15 KF, p IS OISS 

MPITF INTP21 PP»P 

C — HFRE PR IS PHI* P IS **FU» OU IS HCO 
READ IHTPII PP*P*OU 
714 IP IN<f*NE*LVHI GO Tu 7f0 

f here bv is epthaipt* dm is pav 

RPAQ (NTPII DV*OW 
r tcF?*3 
H?l. 10(31 
MS*>I0N2 

SP<Tn't2l«PATI02/SNW(ID02l 
S?(IBN2)-(1.0<*PATt02)7SNU(IDN2) 

c— nnUHOARY YALUES OF ENTHALPY. 

on Tlfc K.l^NPl 
00 717 I»1*LP1 
TP (IRIN(l*N|.E0.2.aR,IKINn»K).EQ.)I 60 TO 712 
LP*KN(K)4jN(JVlt(t*4)UI 
IPH-IP*NVN(NVH) 

TK-TENPIlPt 
TKIHV1.0007TF 
CALL HCPS 

F (LPH|aMSUP*UNlCGN*TK 

717 IF (IKIN(t*K),E0.1«0G.IKIN(l»KI.E6,3l 60 TO 717 
LPaKN(F}4jP<JHL0II*4H4l 
LPH*LP«NYN(NVHI 
TK.TEFPIIPI 
TKIHV.I.OOO/TF 
CALL HCPS 

F»lPM»«MSUN*UNICON*TK 
717 CONTIHOE 

no 716 J>1*PP1 

IF ( JKlNUtKI.EO.ll GO TO 760 

LP>RN(K|4JPUI4IVUU»4I-1 

IPH.LP4NVP(NVH) 

TK-TEHPILP> 

TRtNY.I.COO/TK 
CAU HCPS 

F (LPHI •HSUN4UN1C0N«TK 

760 IF (J.FT, JHOT.ANO.J.LT.JMOOI 60 TO 716 
LP*KH(KI*JN(J|4lML0( J*4|4l 
LFM«LP*NYH(NVH* 
r«*rENp(i PI 
TFINV«1,000/TF 
CAU HCPS 

F«lPm»HSOP40|llCON*TF 
716 CONTINUE 

720 IF (ISOlVEINVn 703*702*703 

703 I* (N00nSTEP*I$0lY6»NVm 702*704*702 

704 CONTINIE 
tSTP*? 

4STP-2 

KSTP-2 

C— — OATAIN DIFFUSION CUEFFICIFNTS* 

CAU 'ANNA 
on 70 J«2*N 
tS*tMLIU*NC0Tn» 
f F-IULO(J*NGCrOI 

T7FAC*4m/(PIN|*0FAC*(P(J) "R<NII I 
no 70 1-15*11 

IP-JN(J»*1 
I 7P-IP«N|NJ 


ST 

759 

ST 

760 

ST 

761 

ST 

762 

ST 

763 

ST 

764 

ST 

765 

ST 

766 

ST 

767 

ST 

76P 

NOR 

209 

NOX 

210 

NQX 

211 

NOX 

212 

NOX 

213 

CONHENT 

149 

ST 

769 

ST 

770 

ST 

771 

ST 

772 

ST 

773 

NOX 

214 

NOX 

215 

NOX 

216 

NQX 

217 

ST 

775 

ST 

776 

ST 

777 

NOX 

216 

NOX 

219 

NOX 

220 

NOR 

221 

ST 

779 

ST 

780 

ST 

781 

ST 

782 

ST 

783 

NOX 

222 

NOX 

223 

NOX 

224 

NOX 

225 

ST 

785 

ST 

786 

ST 

767 

NOX 

226 

NOX 

227 

NQX 

228 

NOX 

229 

ST 

789 

ST 

790 

ST 

791 

ST 

792 

ST 

793 

ST 

794 

ST 

795 

CONNENT 

150 

ST 

796 

ST 

797 

ST 

798 

ST 

799 

ST 

800 

ST 

801 

ST 

602 

ST 

803 


ORIGINAL PAvVc iB 
OF POOR QUALITY 


*K«A>l(Sn)*VS( Jt 

ALI-ltHaHA>«NUZ»l*AftCA 

ALf»ALZ/2. 

rt*8A*«{LAl*AKfA*rtrACM{SM<NAl)M(JM 
r7«AKAXl(T7*ABSIAL7n 
r7UKAI*Z.«ALZ 
TO CTUM»T|*AIT 
00 T0& R"t»N 

••’•OOTAtN SOURCF TEROS AND E¥AFQRAT10N RATES. 
CALL SOURCE 
CALL SCRAS 
00 n T-2*L 
j-min»N«oTotAi 
LR>KMR)AjRU-l>At 
LTR»LR*NI 

AREA>7S(Rt*ltS(n*RRtJI 

ALV*RHO<LR»«VtLrRI«AREA 

nl»T-.9*T01FU> 

IF U.E0.2I DIST>T0IF(2) 
TY>«AN<lP)«AREA/OIST 
Tr*ARARl(TT»oALV» 

CVUIIt>AlV 

n crm-iY4ALT 

00 T2 J-2*R 

KJNaKMlCUjniJ) 

IS*tWLIU»fiGrTO) 

IE>IWLOU»N60TOI 

IKPaRJR^lS 

LR«LXR-1 

AREA«YSR(JIA2SIKI 

ALXaRHO(lM*U(LXFI*AREA 

OTSr-.SRXOtfdS) 

IF (IS.E0.2I 0XST*X0IF(2I 

TX-«AR<LF)*AREA/DIST 

Tx«ARAXltTV»«ALX) 

CXU-ALX 

CX-TXAALX 

TIFAC>R(J)FIRIR)«OFACRtR(Jt-Rthm 

00 72 t«IS*TE 

AAX«JH10(I*N60T0I-1 

t.IJ-4R|J»*I 

LF«RJR*I 

LYR-LP*! 

IYA*LP*N| 

L7P>LFaNIKJ 

AXnfLt JI-CX 

AY>MLIJ>-CY(II 

A7N|IIJ)-C2<LXJI 

APEA-YSRCJ)*fS(KI 

IF CI.EO.IFt SO TO TS 

ALX«.29*(RHQ(LR1»RH0(LXP| t*U(LXPIRAREA 

TX*.9*(6ANUP)ARAN(LXPn*AREA/X0IP<lAll 

TX.AMAXllTX.AaSIAlxn 

rxup«2,*Aix 

00 TO 7A 

7T AtX*RMr(lXP)RUClXP)*AREA 
0TXT«.9PX0IFIIa11 
IF (t.Foat nm*xDiP(LPi> 
TX>0AH(LXP)AAPFA7DIST 
TXaARAXllTX.ALXt 
rxup.ALX 

TA AXAIL mnTX-AlX 
rx.TX*ALX 

nlVft(LUt«Ot«PlltJt*CRUP-CXU 


ST 

BOA 

$f 

ao» 

ST 

BOA 

ST 

BOT 

ST 

BOB 

ST 

BOB 

ST 

BIO 

ST 

an 

CONNENT 

191 

ST 

B12 

ST 

BIS 

ST 

B14 

ST 

BIS 

ST 

BIB 

ST 

BIT 

ST 

BIB 

ST 

BIB 

ST 

B20 

ST 

BEl 

ST 

B22 

ST 

B2S 

ST 

024 

ST 

029 

ST 

B26 

ST 

02T 

ST 

B20 

ST 

B29 

ST 

BSO 

ST 

BSl 

ST 

BS2 

ST 

OSS 

ST 

BS4 

ST 

BS9 

ST 

8SA 

ST 

BST 

ST 

BSB 

ST 

BSB 

ST 

B40 

ST 

• 41 

ST 

• 42 

ST 

B4S 

ST 

• 44 

ST 

049 

ST 

846 

ST 

• 4T 

ST 

B4B 

ST 

R4B 

ST 

890 

ST 

• 91 

ST 

092 

ST 

BBS 

ST 

494 

ST 

099 

ST 

49A 

ST 

BST 

ST 

090 

ST 

B9B 

ST 

• 60 

ST 

061 

ST 

•62 

ST 

069 

ST 

064 

ST 

069 

ST 

• 66 


227 


ORIGINAL PAGE 13 
OF POOR QUALITY 


rvu-cxur 

*R6A>7SIK)*XSm*KN| J4U 

IF Ci.FO.PAXI 60 TO 79 
*l.v«.29*ll>HC4L^i*RHQCLVPM*vaVM*A6EA 
Tr>.9*(6ArtURI«6AH(lYPn*ARCA/VDlFIJ«ll 
TV>AI*AVnTV*A9StAlVI) 

CVUf*2«*AlV 
en TO 76 

79 AlY»«MnUYM#¥»tTf (•AftiA 
nisT«*9«YntFiJ*n 
IF IJ.EO.M) DtST"YOIF(<tFlt 
TY*6ANUY»I«AREA/0IST 
TY-ANAX1ITY»AIYI 
CYOPaAlY 

76 AY»U IJI-TY-ALY 
C7m»Tt*ALY 

OtVG1llJI>01V6(llJI*CrU6-CVU(It 

CYim>«CTUF 

AREA>XS(n«VSU) 

IF(K.FO.H) 60 TO 77 

ALI«.796<RH0ILFI«RH0I17PII*W(LZFI6AREA 

TI*«9RICAF(lPM6AMLZF))*AREA*TtFAC/<Z01F(K«ll*RUM 

TZ*A9AXt<TZ»AAS( ALZM 

C7(IP«Z.*AIZ 

60 TO 76 

77 AlZ«RM(Mt7M*waZPI*AREA 
AlZ>A(.Z/2. 

TZ>6AMUZP}6A6EAPTZPAC/IZSH<NPlt6R<iM 
T7«A9AXl(TZ*ABS(ALZn 
C7(IP-P»6ALZ 
?A AZP(LU)*TZ-ALZ 
CmiJI-T7«ALZ 

0IV6<lIJI-0tV6(LIJIKZUP*CZUUt4) 

C7U<ttJ)»CZUP 

vnL-xsii»*Ys*< Ji*zs(io 

79 por*o* 

79Z 0IV6llIJI-APAXllP0T*0IVGIlljn 
lPP-tP7NVP(NVFINVM 
SUUIJt*SUaiJ)6«QL70IV6llIJ|PF<iPPI 
SP(llJt*SP(LlJ)*«0l>DtV6(LIJI 
7» cnmiNue 

C..~.9CIJRCE TEPP PCOIFICATIONS - BOUNDARY CQNOtTIONS. 
rtii SONCO 

C^.-.CHE9ICAl KINETICS CALCULATIONS. 

c 

IMNV.NF.LVN1I60 TO 722 

PA-PRESS 

00 721 J-2*P 

IS-INIIU.NEOTOI 

TF-IMLfl(J»N6OT0) 

on 723 I-IS.IE 

lli-MJPUI 

LP*IIJ4KNCK» 

TK-TENPlLPt 

F9V*AXPUtJ»*AXNUIJi4ATPfLI4»4ArNUUI*AZPUIJl4AZN<Llit 

NOOE IN 610CRA6E • SNIP CALCULATION - 60 TO 721 

IFlFHV.lT.l.OE^lOGn TO 723 

FM|f«fPV-SP(LI4t 

tF|ENtf«6T«I.0E20»60 TO 723 

t»F-l*4l 

lPN-tP-1 

IPN.LP4NI 

tPS-lP''Nt 

LPT-LP4NINJ 


ST 

B67 

$T 

B68 

ST 

669 

ST 

670 

ST 

671 

ST 

6T2 

ST 

673 

ST 

679 

ST 

679 

ST 

676 

ST 

6 77 

ST 

676 

ST 

679 

ST 

860 

ST 

661 

ST 

662 

ST 

663 

ST 

669 

ST 

869 

ST 

866 

ST 

667 

ST 

666 

ST 

669 

ST 

690 

ST 

691 

ST 

692 

ST 

693 

ST 

899 

ST 

899 

ST 

896 

ST 

697 

ST 

696 

ST 

999 

ST 

900 

ST 

901 

ST 

902 

ST 

903 

ST 

909 

ST 

909 

ST 

906 

ST 

907 

CONNENT 

192 

ST 

906 

CONNENT 

193 

CONNENT 

199 

NOX 

230 

NOX 

231 

NOX 

232 

NOX 

233 

NOX 

239 

NOX 

233 

NOX 

236 

NOX 

237 

NOX 

236 

NOX 

239 

CONNENT 

199 

NOX 

290 

NOX 

291 

NOX 

292 

NOX 

293 

NOX 

299 

NOX 

299 

NOX 

296 

NOX 

297 


220 


ORIGINAL PAC;C 

OF POOR QUALITY 


c- 

c 




743 


744 
741 
C— — 


•»24 


t*4»l7-NfN4 
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T2(m>FS(lP.lII/SNW(Il| 

NSURO«F|L7«NVP(NVHn 

r— -- Not)Ep.i, iamnar rates used. 
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T?4 

ni 


714 

TIN 


NOX 

24N 

NOK 

244 

NOX 

216 

NOX 

251 

NOX 

252 

CONNENT 

156 

CONNENT 

117 

JANie 

1 

NOX 

234 

4STEP 

129 

NOX 

256 

NOX 

257 

NOX 

21R 

NOX 

219 

NOX 

260 

NOX 

261 

NOX 

162 

4STEP 

ISO 

NOX 

264 

NOX 

263 

NOX 

*66 

NOX 

267 

NOX 

266 

NOX 

269 

CONNENT 

196 

HQX 

270 

NOK 

271 

NOK 

272 

NOX 

271 

NOX 

274 

NOX 

273 

NOX 

276 

NOX 

277 

CONNENT 

159 

NOX 

276 

4STEP 

311 

FEB2 

3 

NOX 

260 

NOX 

261 

CONNENT 

160 

CONNENT 

161 

NOX 

2R2 

CONNENT 

162 

NOX 

263 

NOK 

284 

CONNENT 

161 

NOX 

265 

NOX 

266 

NOX 

267 

CONNENT 

164 

NOX 

268 

NOX 

269 

NOX 

290 

NOR 

291 

4STfP 

312 

NOK 

291 

NOX 

294 

NOX 

295 

NOR 

296 

NOX 

297 

NOX 

296 

NOX 

299 

NOX 

300 

NOK 

SOI 





LPCoi«LP*NVNtLvcoi) ORIGINAL PAGE IS 
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4STEP 
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4STEP 
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C-^-SQLVE (!I(i|TE-0|FEEKENCE E8UATI0NS IN SQLVEl AND S0LVE2. 
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ST 
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NOX 
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ST 
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ST 
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NV-INV 

NOR 

314 
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NV-LVCO 

NOX 

322 


CALL FNCD 

NOX 

323 


HH>LVCN 
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4STEP 
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NOX 

329 


OP 1009 N»2»N 
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NOX 
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ST 
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ST 
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ST 
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on m Nv-tvnK.tvi»r st 

IF nSriVHNVM 7!l3»T30»T3a ST 

733 IF MrO(ISTfP»ISnLVE(NVm 730*734*730 ST 

734 IF (INO.FO.O) CAU CA'fRAn ST 

IF (I»l3RtE0.n IND-1 ST 

C*U STP30 ST 

CAU PPQO ST 

730 CONTINUE ST 

r — — coFPOTE Ave radiation fior st 

on 7A0 K« 1 *NP| ST 

00 7A0 ST 

rjn.im*(F)4JM<J) st 

OP TAO t«l*LPl ST 

LP-RJN*! ST 

tFR«»lP*NVF(NURIO ST 

LPRT>iP«NVP(NVRTI ST 

tRR7«lP4KVP(N3R7» ST 

LPFAVaiP*NVP(PVPAVI ST 

740 F(lPPAVI*(f aPR3>*PII.PRTl4P(LPRZI 1/3. ST 

c ^ here pp is phi* p is NFU* ou is nco st 

WRITE (NTP2) PP*P*nU ST 

C HERE OV IS ENTHAIPY* OW 1$ FAV ST 

write (NTP2I DV*OW ST 

C here U is f*. V IS FT* W IS FI ST 

WRITE CNTP2I U*V»W ST 

WRITE (NTP2) TEPP»RHO ST 

WRITEINTP2IFCH*FHE 4STEP 

WRITE(NTP2)ANUC*SOOT1*SOOT2 SOOT 

WRITEINTP2IFS NOX 

TOO NTPT-NTP14NTP2 ST 

NTR1«NTPT«HTP1 ST 

NT*2aNTPT-NTP2 ST 

POO tSTEP«lSTEP*I ST 

!XT» 3-rXY ST 

RETURN ST 

end st 
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rONMr)N/cOEFF/A(4OI*0l4OI*EP<3OI»OPtiO)*APPI3OI*BPP(SO) HASAX 

coH"ON Fi3sooi*ou(3eoi*ov<3oo)*nw<sooi* cores 

1 ANUCCROOI*SO0Tl(9OOI*SOaril3O0l*FCH(3OOI*FH2(9OC)»FS<4OO*14l» 4STE* 
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3 riR<10C)*CYP(10)*OtVG(100)*NTPl*NTP2 CORPS 

UAXRKt 102 t*AXPK( 1021* AYNKt 1021 fAYPK 0021* AZNK(102I»AZPK(|02>» CTORA 

2 StlttOO?)*SPK(102l CTORA 

DIRENSirN UI900l*V(900t*H<900i.'PP(900l»PI900l*TERPt900l CORPS 

OIRENSION CARtAOO) CORPS 

EOUTVALENCE (Fm*UOn.(F4S01l*Wan»4F(l001»*wmi CORPS 

EOUIVALENCE (FO901I *PP(1II *4F (2001) *P< 1 1 1 * <F(2S01 l*TERPO It CORPS 

equivalence (P(30CU*6AR(1I I CORPS 

C0RR0H/CYL/R(30)*RR(90l*RRV(30)*TSRt30)*YSVR(30)*IPlAX CQRRQN 

CPRRON/fiRI0/X(4Ot*Y<aOI*I(3OI*RSI40)*Y$(3OI*ZS(10l>XSU(4OI* CORRON 
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l*fnn*IOOH*tHCPS»ILC*UH*tRAT*lTER*2iJ»Nl*N2*R3iRA*RElOS*NSlOSP* NOX 
? NLRf N0»NSP*NS1*NS2*I0CH 4STEP 

VCCHEMl/CPSUR*HSUn*FO*FPlN*ROAS*ROASlN*SRtNV»TRtNV*TLN*LNR« NOX 

4/CPARAP/ASUS(30*3l*EH«»ER*HSUB0*NDESU«*NS*PA*«0*Ql*S2*0S*O4*RH0PP* NOR 

4 SN*SNW(10)*SPO*Sl(30)*S2t)Ot*TK*iAOtAR*LOESUfi*LfOUlL»LREACT* NOR 

4 lENFp.EDRti.iCORVA NOX 


010 

020 

021 

022 

023 

024 

029 
02 A 
027 

025 
020 
OSO 
031 
092 

033 

034 

039 
03A 
037 

035 

030 

040 

041 

042 

043 

044 
343 
403 
343 
049 

046 

047 
04P 
040 

090 

091 
2 

44 

2 

IS 

3 

4 
4 
9 
A 

3 

4 
7 
« 
0 

10 

11 

2 

3 

4 
9 
2 

3 

4 
3 
A 
7 

5 
0 


rs o r» r> 




OOUIIE PRECISION CRSUN»ENV*E«»F«»HSUI0»M$UH»fR»EHN»OO»0liflE»ft»» 

I fl4,RGRS»R€ASIN»NH0RR»SN#8«tH»»S«N»$l»StiTN»TKlN**UH#»N« 

*CQ*!"0M/STER%/REKRl»EI*^2»PfX^S»^f«^*»EIU»i»«»eN»»ER4»CI#Ul»CEiU*» 

1 CERU3*CERU't»AEI(Ri»R6)(R2* RE*R9» REXR4»SEXNl»iMP2»BEKPS»*C*N4» 

2 CE«Rl.CfXR2»CERR3iCE«R4.FUT«EST 

LOGICAL LAOIAR»tCONV6»LOEtUfi»LEQUIl»l HRft»LRIACT»llNIR 

CnNNON/|NTIt»N#N»lC¥»NCV»NCViLRl»HRlfMRl»NI»NJ»HKf N|NJf,NINJNK»NV» 

1 NNV*NfiOT0»R»IS7R»JSTR*RSTR»N¥N(39l»1(«Ca0l» JRI10)»ISTEA» 

2 naLVEI32»»lPRlNT(33»tTlTLEaO»IJ>»llCt.ISNR»J$ME»«EU«l95>»KR» 

3 HRHn»H6AO*IMLinO»M»INLOI30»5l»JNLf)t*0»9l»JWlU A0»9»»N6I* 

A tNEO»NNl»JNn»JNlO»JNPl»J¥nO»ION»JNIHI10»»0»»miM40»IO) 

CONNON/iHOEK|IPAR»lRREP»lSTUNtlHCONP»ITRAOiNVRX*H¥Rt*N¥«I» JRLANE 
I* RL ARnifLVN »LV0»LVPU0X»LVFI(»L¥C0»L¥HfL¥R*»t¥*T»L¥RI»N¥FI3l I* 

2 I jtlMP»IRf S»TTTLE2<20> »INAX»4NAX»RNAX»N¥C0»FUBCC»N¥HI0»H¥C08» 

% NVH2 # N VC H f NVH{ 

C0»NnN/CN0«nVHI.lVM2,LVMl#L¥NO,LVHQ2.tWO»L¥0M»l¥M2O»L»H2.LVO2. 

1 L¥C02»1¥FU1#LVC01»NNOX»INOK*I TN0X#SN0*»TH0X 
C0NNONiTHE»R/N¥H,N¥FU»H¥O*»N¥FO0X»NVTe»N0OEN»10N»F8TOtC»MFO»CPi 

1 G»SCON»RHOCON»UMICON«RRFSS»N¥FA¥tTCTm*T|NlN»TLlF# ACOEFtAI* 

2 TA( nFAC»WFO»NC02»MCO»WOX#NH20»MN2»N¥t»CKK»RATIOI»R ATt02» 

3 RATt03*RATI0A*KO»TAN>IT¥ALL 

Cn»MnNKT0N*/KEHn»ICT0*'M32l 

..^.fUUftnUTINE STRAO IS OSEO FOR CALCULAT1N6 

OtCFfRENCf COEFFICIENTS IN THE RADIATION FLUX EOUATtONS 
ANO Ff>R SOILING THESE F0UATI0N8 At 0SIN6 THE 
TRt-OTA60NAL-FATRIX-ALG0»lTMN|TnNA>. 


KnNTRQ-NV>LVRX*l 
GO TO (100»2OO»3OO)*KONTRO 
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100 CONTINUE 
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C ORTAfN source terns ISQRAOI ANO 90UH0ART CONOITIONS ISQNOOt. 
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call SONOO 
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CONTINUE 
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4t«)-AimiF|/ST0*E 

R(Kt«(SU(lIN)«A2NtlIK)*MR.lt)F$TDRE 

DO 306 RR*2*N 
K-KSUN-KK 
l“»t»F*RN(K » 

LZO-LF^NfhJ 

F(LPI«A(RiVr{!.ZPMB(K) 

CnNTtNUE 

CQNTtNUF 

»ETIIPN 

FNt) 

FUNCTION TS0LVECTUN.T6ASf»AO,MTClfStG»ENI»tTPAO> 
SntVF FOP NAU TFNPIPATUPES. 
tTR>MlNO(lTRAO»2) 

ROUNTaO 

TN»TWN 

KnUNT>KnUNT*^l 
TF(«nilNT. FT. 10)60 TO 30 
TM2«TW4TM 
PAOIATION. 

0PN>?,a4EPl*|S|6«TW2*TN2-RADt«FLaAT(ITR-lt 

CONVFrTFON. 

0CH»hTC1*<TN-TGAS» 

no9H-n.0«ENl«St6*TW*TW24FlQAT(lTP>ll 

OOCH-mTCI 

PTM*OBH»0CN 

DFTN«ftOPH*OOCH 

T«N.TM-FTNF»0FTU*1,E-30» 

IF(A35(TWN^TU>1.).6T..001)60 TO 10 

TSni vf-Tnn 

RFTU*N 

fun 

TURRnUTINI A3S0RMTS»TfPATH.S0OTR»PCO2*PH20»AlPHA» 


SUAROUTINf AAJPOO CONFUTES THE ARSORPTI VtTtES (UITH RESPECT TO 
SOURCE) OF nOTHERNAL * MONOGINICUS NIXfURES OF SOO 
cn> ANO «20 AT A total pressure of 1 ATNCSPHFRF. ARSORPTIFITIF 
CAICULATEO RT SURPQUTtNF ARS0R3 ARE IN GOOD ACRfiNENT NfTM 


STR 

STR 

STR 

STR 

STR 

STP 

STR 

STR 

STR 

STR 

STR 

STR 

STR 

STR 

STR 

STR 

CI1NNENT 

STR 

STR 

STR 

STR 

STR 

STR 

STR 

STR 

STR 

STR 

SIR 

STR 

STR 

STR 

STR 

STR 

STR 

STR 

TSO 

CONNENT 

TSO 

TSO 

TSO 

TSO 

TSO 

TSO 

CONNENT 

TSO 

CONNENT 

TSO 

TSO 

TSO 

TSO 

TSO 

TSO 

TSO 

TSO 

TSO 

TSO 

A3S0R 

ABSOR 

AASQR 

AASOR 

ABSQR 

ARSOR 

ABSn* 

ABSQR 


101 

102 

tOB 

104 

103 

106 

lOT 

lOB 

too 

110 

111 

112 

113 

114 
119 
116 
1»0 
117 
lie 

119 

120 
121 
122 

123 

124 
129 
126 
127 
12B 

129 

130 

131 

132 

133 

134 
2 
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3 

4 
9 
6 
7 
B 

IS? 

9 

1B3 

10 

11 

12 

13 

14 
13 
16 
17 
19 
19 

2 

3 

4 
9 
6 
7 
n 
9 
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C 

c 

r 

C 

C 

C 

C 

c 

c 

c 

c 

c 
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r 

c 

c 

c 

c 

c 

c 
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FR^CKl^FNTAL «*$UtMfNT5. 


FOB A FLACFMODV SOUBCF TCNFFBATMBF IttUAl TO THI OlRTMi 
TFHFFBATUBF* IB*0«FT:»TTT FQUALS IHIJSiVITt. fOISSIRITIM SO 
CAtCOLATFO AAF IN fiOtlO AGAIfNfNT NITN ^MCTBAL CAtCliUTION* 
ANO MTTH FXFEBINFNTAl NEASURENEKj $. 


EACH CAiL ON SUABOUTINE AOSOBR BEOUIBES lESS THAN II NULMECON 
OF CFM TINE ON AN IAN 370/190t 


TNFUTSI 


1. TS UN DI6BEES KElVINIC M.ACKOOOY SQUBCE TENMBATUBE. 

TS FUST OBEATEB 1MAN OB EQUAL TO 300*K AND LESS THAN OB 
EQUAL TO 2000.K. 

?. T (IN OERBFES KFLVINI5 NIITUBE TENBEBATUBE. T BUST BE QBEAT 
THAN QB EQUAL TO BOO*K ANt) LESS THAN OB EQUAL TO 2000. R. 

3. BATH (IN NCTBESU NIXTUBE BATHLENOTH. BATH NUST BE 
6BEATEB THAN OB EOUAL TO 0.0 NETBES. 

A. SOOTK (IN INVERSE NETBESU ABSOBBTION COEFFICIENT OF SOOT 
AT A VAVELENOTH OF O.QA NICBOHETBES. SOOTN IS (ABBBOXIHATELY) 
RFLATE*» TO THE SOOT VOLUNf FRACTION* FV» BYCSOOTR-Tf V/0*QAE*(k* 
SOOTN HOST BE GREATER THAN OR EOUAL TO 0*0 INVERSE NETBES, 

9, FC02 (IN ATBOSBHEBES)* BABTIAL BBESSURE OF C(]2 IN A NIXTUBE 
VMPSE TOTAL BBESSUBE IS 1 ATBOSBHIBE, BC02 BUST BE OBfATER 
THAN OB EOUAL TO 0.0 ATNQSBHEBES AND LESS THAN QB EOUAL TO 
1,0 ATNOSBHEBES. FOB BC02 LESS THAN O.OOU ATnOSBHEBES, THE 
CONTBU-MTION of CQ2 TO THE NIXTUBE ABSOBBTIVITY IS ASSUNEO TO 
9E TERO. FOR (BATHBTS/T*BC02» LESS THAN 0*00U ATN-NETBE, T«E 
CONTRIBUTICN of C02 TO THE NIXTUBE AOSORBTIVITT IS ASSUNEO TO 
Of 2EB0, IF (BATHATS/T*BC02I EXCEEDS 9.Q6 ATN-NETRE* 
SUOBCOTINE ABSORB ABORTS ANO RETURNS A VALUE OF A6S0BBT1VITT 
SET at -ItESO, A DIAGNOSTIC NESSAGE IS BBOVIOEO* 

6« FH20 (IN ATNOSBMEBESTS BABTIAL BBESSUBE OF H20 IN A NIXTUBE 
VHQSE TOTAL BBESSUBE IS 1 ATNOSBHEBE. BH20 BUST BE GREATER 
THAN OR EQUAL TO Q.O ATN AND LESS THAN OB EQUAL TO (1.0-BCQ2T 
fob BH20 IFSS than O.OOU ATN* THE CONTBIBUTIfN ItF HfO TO THE 
NIXTUBE AOSOBBTTVITY IS ASSUNEO TO BE ZERO, FOB (BATH*TS/T*BH 
LfSS than C.OGU ATN-neTBE* THE CONTRIBUTION Qf H20 TO THE 
NixirUBI ABSOBBTIVITY IS ASSUNEO TO BF ZERO, IF ( BATH*TS/T*BH2 
fXCFfOS 9.QB ATN-NFTRE* SUBROUTINE ABSORB ABORTS ANO RETURNS A 
VALUE OF ABSOBBTIVITY SET AT »1,ES0, A OtAGNOSTlC NESSAGE 
IS BBOVIOEO* 


OUTBUT* 


ABSOB 

10 

ABSOR 

11 

absor 

12 

ABSOR 

IS 

ABSOR 

lA 

ABSOR 

19 

ABSOR 

l(k 

ABSOB 

17 

ABSOB 

IB 

ABSOR 

19 

ABSOR 

20 

ABSOR 

21 

ABSOR 

22 

ABSOB 

23 

ABSOR 

24 

ABSOB 

29 

ABSOR 

2B 

ABSOB 

2T 

ABSOB 

20 

ABSOB 

29 

ABSOR 

90 

ABSOB 

91 

ABSOR 

92 

ABSQR 

SS 

ABSOR 

S4 

ABSQR 

S9 

ABSOR 

36 

ABSOR 

ST 

ABSOR 

SB 

ABSOR 

S9 

ABSQR 

40 

ABSQR 

41 

ABSOR 

42 

ABSOR 

43 

ABSOB 

44 

ABSOR 

49 

ABSOR 

46 

ABSOR 

47 

ABSOR 

4B 

ABSOR 

49 

ABSIiR 

SO 

ABSOR 

91 

ABSOR 

92 

ABSOR 

93 

ABSOR 

94 

ABSOR 

99 

ABSOR 

96 

ABSOR 

97 

ABSQR 

90 

ABSOR 

99 

ABSOB 

60 

ABSOR 

61 

A ABSQR 

62 

ABSQR 

63 

2 ABSOR 

64 

ABSOB 

69 

0 ABSOB 

66 

ABSOR 

67 

ABSOR 

6B 

ABSOB 

69 

ABSQR 

TO 

ABSOR 

71 

ABSOR 

72 

ABSOR 

73 
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SIJARQUTlNf *BSDim HfTU^HS *tf ► ^ ’'HE ( 0I(*H4t SS I 
(l«sn*®T IWITV tlF k NfUTUBE (If 5v'0T» CHi AND H?f) Af A '^DfAl 
ANESStlAf Of I ATNOSPHFNf. 
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THE EQUONINC 
bNSaANt 
1 . A«YNP 
*. CHEAT 
OLECK 
PEAS 
PfNTA 
SPOT 
SCATCM 


SUaPaUTlNf'# HUST re used with 


4 . 

4. 

A« 

?. 


OUFSTIOKS ABOUT SUBBOUTIHE ADSORB BAT »E AOOBISSEO TOI 
ATHON Ti NOOAK 

northern research and EHGINEERIB6 CORPORATION 

MOBllPNf NASS* 01801 

USA 

TEt* HO* fOlT) 435“0090 IRT 804* 


IFCTS*LT*300* *ob* 

TFit .LT.3C0* *0R* 

PSUN«PC08*PH80 
IFtRSUN.6T*1.0» GOTO 3 


TS. 6T* 8000. > GOTO 1 
T .GT.ZOOO.tGOTO 8 


NlirTURE AND SOURCE TEMPERATURES* 


raiPUTF RATIO OF 
RATin»T/TS 

rn**t*UT* EFFECnVE pathlensth.pathi 
PATHL-PATH/RATIO 
Rri«PCO?*PAT«t 

RNl»RHZn*BATHl ^ 

IF(PCI.GT«5*48 *0R* PWL*GT*9*46I GOTO 4 
rONPUTF SOOT APSCRPTIVITT.AS 
AS*0.0 

!ffSDPTR.LE*O.Ot GOTO 91 
CAI.L SPnT»SOnT«»PATH»TS»TAO$» 

AS-l.-TAUS 

r 

c 

91 COHTtNUJ 

CONMUTF RAS absorptivity. AG 
AR«0*0 

|FIPC02*iT. 0*0011 *ANO. 

IFfPCl *IT»0»0011 *AN0, 

AR*Fr,ASIPATMl.PCn8.PM80.TS» 

CORPUTF W4T’ R VAPOR FRACTION. lETA 
ieTA«PM?p/PsnN 
P0WER«0*B9<’O*8*ZETA 
*ft.Af,*RATT0*4P0HFR 
rnNTINOF 

A|.BHA*AS4AG*AS*AG 

return 

* rPNTINUE 

9 FORNATIA EITHER the PRODUCT.P ATH. TS/T.PC08. OR 
IftS 4*<>P ATP-PFTBFSPt 
HRIfF 


PH80.LT.0.001DG0T0 92 
PWl .|,T.0.0011)GaTu 98 


PATH*TS/T*PH80 


ABSOR 
ABsnP 
ABSOR 
ABSOR 
ABSOR 
ABSOR 
AtSOR 
ABSOR 
ABSOR 
ABSOR 
ABSOR 
ARSQR 
ABSOR 
ABSOR 
ABSCR 
ABSOR 
ABSOR 
ABSQR 
ABSOR 
ABSOR 
ABSQR 
ABSOR 
ABSOR 
ABSOR 
ABSOR 
ABSOR 
ABSOR 
ABSQR 
ABSOR 
ABSOR 
ABSOR 
ABSQR 
ABSQR 
ABSOR 
ABSOR 
ABSQR 
ABSOR 
ABSOR 
ABSOR 
ABSOR 
ABSOR 
ABSQR 
ABSQR 
ABSOR 
ABSOR 
ABSQR 
AOSQR 
ABSQR 
ABSOR 
ABSOR 
ABSQR 
ABSQR 
ABSOR 
ABSQR 
ABSOR 
ABSQR 
ABSOR 
ABSQR 
ABSQR 
ABSOR 
ABSO* 
fXCEC ABSQR 
ABSQR 
ABSOR 


74 

79 

74 

77 

7B 

79 

BO 

B 1 

B 8 

03 

BA 

«9 

B6 

BT 

BB 

B4 

90 

91 

98 

93 

94 

99 
96 
9T 
9B 
99 

100 

101 

102 

103 

104 
109 
106 
lOT 
lOB 

109 

110 
111 
118 

113 

114 
119 
116 

117 
IIB 
119 
180 
181 
188 

183 

184 
189 
186 
187 
18B 
189 

130 

131 

118 

113 

114 
1)9 
136 
117 




C»‘\iGlf;AL FA;: 1 - 
OF POOR 


vow 


' -4b 


t'. 


Or p' ;v j V 


6 FORfATt* THIS CALCULATION LIES OUTSIDE THE |AN«F OF SUINOUTINE ARS 

A IS 04 

ISB 

IQNA.SURIIOUTINE AA$QRR ADORTS AND RETURNS A VALUE QF*I 

ABSOR 

139 

HRITEIRtTI 

ABSUP 

140 

T FORNATI* ALFHA set equal to >l«ES0QI 

ABSOR 

141 

GOTO D 

ABSOR 

142 

3 CONTINUE 

ABSOR 

143 

MRITE(«*9) 

ABSOR 

144 

4 F0RNAM9 SUE OF CAS PARTIAL FRE$SURES»PCQEFFHtO»EIICEEOS 1 ATNRI 

ABSOR 

149 

URtTE(6«6» 

ABSOR 

140 

WR!TE(«*7) 

ABSDR 

X4T 

GOTO R 

ABSOR 

I4B 

2 CONTINUE 

ABSOR 

149 

HRITEIQtlU 

ABSOR 

190 

n FORNATI* NIXTURE TENFERATURC *T* LIES OUTSIDE THE TEMPERATURE RANS 

ABSOB 

191 

IE 300 TO 2000 DECREES KELVIN*) 

ABSOR 

192 

NRITE(6*6) 

ABSOR 

193 

WRITETA*?) 

ABSOR 

194 

GOTO R 

ABSOR 

199 

1 CONTINUE 

ABSOR 

19ft 

NRITEIEtlO) 

ABSOR 

19T 

10 FORNATI* RLACKRODY SOURCE TENPERATURC»TStLtES OUTSIDE THE TENPERAT 

ABSOR 

19B 

HIRE RAN6E 300 TO 2000 OEOREES KELVIN*) 

ABSOR 

199 

V»1TE(*»6) 

ABSOR 

160 

HRITEI6«T) 

ABSOR 

161 

R CONTlNUc 

ABSOR 

162 

ALPHA-*1.E30 

ABSOR 

163 

RETURN 

ABSOR 

164 

ENO 

ABSOR 

169 

SUBROUTINE ASrNPIt»XV) 

ABSOR 

166 

SURROUTINE ASTNP COMPUTES THE ASYMPTOTIC EXPANSION FOR THE 

ABSOR 

167 

PENIACAPRA FUNCTION. 

ABSOR 

16B 


ABSOR 

169 

II1«1*/E 

ABSOP 

170 

II2>m*ZIl 

ABSOR 

171 

m»7Il*II2 

ABSOR 

172 

FV«Zt3*<(2**3**mi*It2*l2.*2I2*l-l»«ZI 2*1 1*3333333333 

ABSOR 

173 

1 «Zl2*l-3.4lO**7I2))m 

ABSOR 

174 

RETURN 

ABSOR 

179 

end 

ABSOR 

176 

SURROUTINE CHERVIN^X.VI 

ABSOR 

IT? 

V REPRESENTS VALUE OF C<^EBYSHEV PQLTNONIAL OF ORDER N 

ABSOR 

1TB 

AND ARCUNENT X. 

ABSOR 

IT9 

V>1. 

ABSOR 

IBO 

IF(N) 1*1*2 

ABSOR 

IBl 

1 RETURN 

ABSOR 

162 


ABSOR 

1B3 

2 V*Y 

ABSOR 

1B4 

IF(N-l) 1*1*3 

ABSOR 

1B9 

3 F*’,;4R 

ABSOR 

1B6 

VNl-X 

ABSOR 

187 

VN2«1. 

ABSOB 

188 

on A T«2*N 

ABSOR 

189 

V«F*VN1”VN2 

ABSOR 

190 

VN2-VNI 

ABSOR 

191 

VHl-V 

ABSOR 

192 

A CONTINUF 

ABSOR 

193 

RETURN 

ABSOR 

199 

END 

ABSOR 

199 

FUNCTION OLECKCX*PC*T) 

ABSOB 

196 

SUBROUTINE OLECK COMPUTES THE 2«T AND 19 MtCROMSTRE OVERLAP 

ABSOR 

197 

CORRECTICH FOR NATURES OF CQ2 AND N20. THE OVERLAP CORRECTION 

I ABSOR 

196 

IS COFPUTED BY US1N6 A TENRERATURE-AOJUSTEO VERSION OF THE 

ABSOR 

199 

OVERLAP CORRFCTION FACTOR SUGGESTED BY B. LECRNFY 

ABSOR 

200 

ffflPBIfSTIPN AND FLAME VOLUME 1* FACES 33-A8* IRY2 1 

ABSOR 

201 

237 


ra r» 


c 

r 

c 

c 

c 


2 «« 


. . .. vvcj: i‘3 

ifipl.lt. o.n fiofo t 

TFRM<*1t/(10.7*101.*V) -KMX0.4/XU»T 
TERH?«ALOGlO(l0l.929«PL) 

TE<»P2«TFRP2**Z.76 

TT«T/1C00. 

TT«*TT*TT 
A«*l*02C*OeZ 
H-2.2A4F979 
C">0*2!4E«396 
TEIM3*APTT2* B«TT * C 

TERPJ RfMESCHTS THI TEtlPCRATURe A04USTHIHT 
OlECKatEPF mPH2*TERN3 
RETURN 
OlPCNaO.O 
RETURN 
FNO 

^“*‘RUcTION*UirCONPUTirTHE E«U$I¥ITT Of A GIVEN PATH IPATNU 
OF A NIKTURE Of C02 AND H20 AT TENPE»ATURE T. 

PC • PARTIAL PRESSURE Of CQ2 
Rtf - PARTIAL PRESSURE OF H20 
EGAS-0.0 

IFtT.lT.300. .OR. T.6T.2000.I RETURN 
FC>0.0 

IFtPC.LT.0.0011 .OR. PC.6T.1.01 GOTO t 
PCL-PCRPATHL , 

TFtRCL.LT. 0.0011 .OR. PCL.OT.S.MJ OOTO 1 

CALL SCPTCHtPC.PCL.T.l.ECI 
I CONTINUE , , 

IFtPW.lT.O.OOll .OR. PV.OT.l.OI OOTO 2 

PUL-PNRPATML ^ 

TFIPUL.LT. 0.0011 .OR. PNL.BT.9.9BI GOTO 2 

call SCRTCHIPN.PVL.T.2.EVI 

FGAS-FCAFU 

IFtEC.Lf.C.OT RETURN 

PCPN«PC*PN 

VlaPUPPCPV 

TFOI.LT. 0.011 return 
PCU l«PCPU*PATHL 
IFtPCWL.LT.O.l ) RETURN 
OELEaOLECKtPI.PCVL.TI 
EGAS*EGAS>OELE 
RETURN 
» CONTINUE 
egas-fc 

RETURN 

FNO 

'*^**Si|MaUTlNl PERTA returns TNE value V OF THE PENTA6ARRA FUNCTl 
OF IrGURINT I. RECURRENCE FORWILA 6.A.6. AND ASYNPTOTIC FORI 
La. 14 IPA6E 2401 OF ABRANOUITI ANO STEGUN ARE USED IN 
THIS CALCULATTCN. 


tFtK.fF.4.1 GOTO 1 
IFtv.GE.3.) GOTO f 
tFMI.GF.2.1 com 3 

|R*4*l./t X4l. IRRAtl./XRRAl *6. 

T-X*3. 

CALL ASTNPtl.fVI 
GOTO 4 
CONTINUE 

S»(l.ctx*l, t#*4*l./X**4»*6. 


AGSOR 

202 

ABSOR 

209 

ABSO* 

204 

ABSOR 

209 

ABSOR 

206 

ABSOR 

207 

AGSOR 

20B 

ABSOR 

209 

ABSOR 

210 

ABSOR 

211 

ABSOR 

212 

ABSOR 

213 

ABSOR 

214 

ABSOR 

219 

ABSOR 

216 

ABSOR 

217 

ABSO* 

21B 

ABSOR 

219 

ABSOR 

220 

ABSOR 

221 

ABSOR 

222 

ABSOR 

223 

ABSOR 

224 

ABSOR 

229 

ABSOR 

226 

ABSOR 

227 

ABSOR 

22B 

ABSOR 

229 

ABSOR 

230 

ABSOR 

231 

ABSOR 

232 

ABSOR 

233 

ABSOR 

234 

ABSOR 

239 

ABSOR 

236 

ABSOR 

237 

ABSOR 

23B 

ABSOR 

239 

ABSOR 

240 

ABSOR 

241 

ABSOR 

242 

ABSOR 

243 

ABSOR 

244 

ABSOR 

249 

ABSOR 

246 

ABSOP 

247 

ABSOR 

24B 

ABSOR 

249 

ABSO* 

290 

N ABSOR 

291 

1 ABSOR 

292 

ABSOR 

293 

ABSOR 

294 

ABSOR 

299 

ABSOR 

296 

ABSOR 

2"7 

ABSOR 

29B 

ABSOR 

299 

ABSOR 

260 

ABSOR 

261 

ABSO* 

262 

ABSOR 

263 

ABSOR 

264 

ABSOP 

269 




original pacc is 

cut ASTKMi.ivt OF POOR QUALITY 

«0T0 4 
2 CaMTINUE 

SoA./«M4 

r-ii+i. 

CALI ASVft2(2tIV» 

GOTO 4 
1 CONTINUE 

s*o*o 

CAll ASTHAIX»IV> 

4 CONTINUE 
W-IV*$ 

NETUNN 

ENO 

SUSNOUTINf SOOT(lNLEO»NATNLtT6LACR»TAUS» 

SUBNOUTINE SOOT CQNEUTES THE TNANSNISSIVITT tiAUSt 
OP SOOT TO A eUCKBOOV ttAOlATlON SOURCE AT A GIVEN 
TENPERATUNE aSlACKI* 

IPdKUD.LEt 0*> GOTO 1 
ARG-l.*ZRLED*PATHL«mACK46*9SSTE-9 

THACK • SOURCE TEMERATURE OR GAS TENRERATURE 
CALL PENTA(AR6*V) 

SU6ROUTINE RENTA COMPUTES THE RENTAGANNA FUNCTION 
ARC • ARGUMENT OF THE RENTAGANNA FUNCTION 
TAUS-V*«1994M7a96 

TAUS • SOOT TRANSNISStVITV 
RETURN 
1 TAUS>l4 
RETURN 
END 

SUBROUTINE SCRTCH(R«RL»T*INOE1(>V» 

niNENSION CCO*4»4t>CNl3t4*4l» SCfS*4*4l 

TF(TNnER.E0.2l GOTO 2 

CC REPRESENTS AN ARRAY OF 4« COEFFICIENTS FOR C02 


CCd 

*ld) 

-0.279496GEA01 

ecu 

• I »2 ) 

-0*2497a97E»00 

CCd 

d»9> 

-0.1232494EAOO 

cca 

tl*4) 

0.12792G7E-01 

CCd 

t2»l> 

0.1909091EA01 

CC«1 

t?»2l 

0.919A449E«0O 

CCd 

• EdI 

0*l09ai26E-0t 

CCd 

• Ef4l 

'•0.9T29A29E*>01 

CCd 


-0.2474119E«00 

CCtl 

*ldl 

-0.9929a4GE-01 

CCd 

f 3t3) 

''0*1N19471EH)1 

CCd 

■ 9*4) 

0.22a97a<)E>01 

CCd 

*4*11 

0.4494C29E-01 

CCd 

*4t2» 

-0.19e67a6EH)2 

CCd 

*4*91 

0.900784SE-02 

CCd 

*4*4) 

•G*llT999aE*02 

CCd 

*1*11 

O.S79T722E<H)2 

CC(2 

*1*21 

-0.992a49aE-02 

CCd 

*1*91 

0.2906266F-02 

CC(2 

*1*4» 

0*4227920E-09 

CCd 

*2*11 

"C.91917a4E>02 

CCd 

»2*2t 

0«9A92a21E-^2 

CCd 

*2*9) 

-0.32A0299E-02 

CCIZ 

• 2*41 

0*7069aa4EH)9 

rc(2 

*9*11 

0.166a791E'09 


AGSOR 

266 

AaSOR 

26? 

ARSOR 

26G 

ARSON 

269 

AGSOR 

270 

AGSOR 

271 

AGSOR 

272 

AGSOR 

279 

AGSOR 

274 

AGSOR 

279 

AGSOR 

276 

AGSOR 

277 

AGSOR 

270 

AGSOR 

279 

AGSOR 

2G0 

AGSOR 

2G1 

OF PATH I RAT AGSOR 

2G2 

AGSOR 

2GI 

AGSOR 

2G4 

AGSOR 

209 

AGSOR 

206 

AGSOR 

267 

AGSOR 

2GG 

AGSOR 

289 

AGSOR 

290 

AGSOR 

291 

AGSOR 

292 

AGSOR 

299 

AGSOR 

294 

AGSOR 

299 

AGSOR 

296 

AISQR 

297 

AGSOR 

29G 

AGSOR 

299 

AGSOR 

900 

AGSOR 

901 

AGSOR 

902 

AGSOR 

909 

AGSOR 

904 

AGSOR 

909 

AGSOR 

906 

AGSOR 

907 

AGSOR 

90G 

AGSOR 

909 

AGSOR 

910 

AGSOR 

ni 

AGSOR 

912 

AGSOR 

919 

AGSOR 

914 

AGSOR 

919 

AGSOR 

916 

AGSOR 

917 

AGSOR 

91G 

AGSOR 

919 

AGSOR 

920 

AGSOR 

921 

AGSOR 

922 

AGSOR 

329 

AGSOR 

924 

AG*OR 

929 

AGSOR 

926 

AGSOR 

927 

AGSOR 

92G 

AGSOR 

929 




CC(2t)»2l—0.?32A«33«-03 

CC(2i1»3l»0.3e3Qn39E-'03 

CCC2*3*9l-0.322e3XeEH>3 

CC(2>4*l)«0t73e6A3BE-O3 

CC<2*9»2»«-0.7277073r-03 

CC»2»*.SI-0t992»^6BE-O3 

CC(2*4»4I— 0.202L413E*03 

CC(3tl>n*0*3ie9«UE*02 

CCI3»1»2J— C.9439i«9f;-02 

CC(3tl*at*0tl76496OE-O2 

CCO*l«4l-0.3C390aiE»09 

rc(l* 2 »l)— 0.1662TO(iE>02 

CC(a*2»2l*0«3236279<i-02 

CCC9»2»3J«"C.J992290E-02 

CC«3.2»9)-0.3*74022E-03 

CC<3*3»lt-0*120B»07E«03 

CC(3*3*2)—C«4479927E-03 

CC<3t3»3l*0.I49792XF>03 

CC(3»3»9)*0.1Bt2996E-0a 

cc(af«»i)«o.4?iei69E-03 

CCt3i 4*2)>-0.4046608E-03 

CC(3*4*3)>0«3296a61E-03 

CCO»4,*»— 0.99149(UE-O4 

r,ofQ4 

2 cnuTTNUE 

CW REPRESEDTS 4N ARRAY OF 


ORIGINAL PAGE IS 
OF POOR QUALITY 


40 COEFFICIENTS FOR H20 


C H 1 1 * 1 » 1 1 — C. 2994279E401 
rNn*l»2»— O.71104T2E+OO 
CWIl.l.a»— 0.9956R39E-03 
CWUf 1«4>-0.1224960E"01 
CW(1*2»1)>C*2910331E»01 
CW(l*2>2)-O.£4BiaO0E4OO 
CMn»2r3)— fl«3330997E-01 
CW<1»2»4)— 0.9924349E*02 
Cwn*3*lt— 0.419163BE«00 
CM(1>3*2)— 0.1379ia0E«00 
CH(t»3*3)-O.307793OE-Ol 
CW(l»3i4)-O.0F6232BE-O3 
CW< It 4»l»«-fi. 32239126-01 
CH(tt4»2)— 0.ie2C241E-01 
CMnt4*3)—C.2221143E-0l 
CW(lt4t4)*-0*99407BlE-03 
CW<2t ltl>«0tll26»69E*0O 
CU«?tlt2»*'-CtR133B29E-01 
CH(2tlt3»«0.1914940E-01 
C9(?f lt4»t0.1393BB0E-O2 
CW»?t2#11««C.929B"09E-02 
CWt2t2t2)-0*4990B60E-01 
CY«2»2t3>— C.20B200BE-01 
CN(2t2f4)*0.2C133ME-O2 
Cw<2t1tl)— fi«4379032F-Ol 
CWe*t3t2»«0.1924'>97F-0l 
r«t2,?»3»«O.BI99077E-O2 
rwi2t3.4l*-0.46l«414E-02 
fW<2t4,l*«0.7077B7AE-02 
Cw<?t 4 12> —0.20961606-01 
CH(2t4t3l-fi*lA9e202E-O? 
C9(2. 4, 4>«0.36M421E-02 
CN< 3 . i.n-o.aaAiBiTE-oi 
r9«3tl.2l-"0.94O7ft«3E-0X 
CwlSt l.at-O.ASBABUF-OF 
rM»'.l»*)-C.l*92C3"6-02 

? 4 (» 


ARSOR 

330 

ABSQR 

131 

ABSOR 

332 

ABSOR 

333 

ARSOR 

334 

ABSOR 

335 

ABSOR 

33B 

ABSOR 

337 

ABSOR 

3IB 

ABSOR 

339 

ABSOR 

340 

ABSOR 

341 

ABSOR 

342 

ABSOR 

343 

ABSOR 

344 

ABSOR 

349 

ABSOR 

346 

ABSO* 

347 

ABSOR 

348 

'SQR 

349 

A, 'R 

390 

ABSOR 

391 

ABSOR 

392 

ABSOR 

393 

ABSOR 

394 

ABSOR 

399 

ABSOR 

396 

ABSO* 

39T 

ABSOR 

396 

ABSOR 

399 

ABSO* 

360 

ABSOR 

361 

ABSOR 

362 

ABSOR 

363 

ABSOR 

364 

ABSQR 

369 

ABSOR 

366 

ABSOR 

367 

ABSOR 

366 

ABSOR 

369 

ABSOR 

370 

ABSOR 

371 

ABSOR 

372 

ABSOR 

373 

ABSQR 

374 

ABSOR 

379 

ABSOR 

376 

ABSQR 

377 

ABSOR 

378 

ABSOR 

379 

ABSQR 

36C 

ABSOR 

161 

ABSOR 

3B2 

ABSOR 

363 

ABSQR 

364 

ABSOR 

3B9 

ABSQR 

166 

ABSnt 

197 

ABSOR 

366 

ABSQR 

399 

ABSOR 

390 

ABSOR 

m 

ABSQR 

192 

ASS''* 

191 




CW(a»2»ll»-«.<ST0S17IIE-02 O"'' ! 

CM<3»2»2t-0.20a6nR6E-01 , , , 

CW(S*2>3)-"0.R«T793ia*O2 ^ ‘ 

CW()n2*4)oC.619S272EH>3 
CM! )t a# 1 1— fl.2104622E>01 
CWO»3*2I>0*7919746P-02 
CNt3i9*9)<0t9«699C9EH>2 
CW(S*St4l*-0.2796144E>02 
CW(3»4*n*0.43]ia979l:-02 
CWt)*4»2)*-0*1009744E>01 
CH(3»4*3)«C«4C91064E-03 
CW(3»4f4)*0.2990439E*02 
4 CONTINUE 

X>ALn€IEt/3. 49*1.0 
V>MU)G I EL 1*2.9991/4.349 
/•(T-1190.)/ 990. 

V*0.0 

00 9 tI-1.3 
l-II-l 

CALL rHFOYUtX.Tm 

V«>0.0 

00 6 JJ-1.4 

CALL CHEeVU.V.TjY) 

V7-0.0 
on 7 NN*l»4 
KaNK-l 

CALI CHE0Y(R»7.TAI» 

IFItNDEX.E0.1ISC(lI.JJ*KK)aCC(IIt JJ.RRI 
t*nNDE3.E0.2ISC<II*2J*KRI*€N(n» JJ.RNI 
V7-VT«TKI*SCIII* JJ.KKI 
7 CONTINUE 
VA«V6*V7*TJY 
4 CONTINUE 
VaV*V6*TIX 
9 CONTINUE 
V«EXE»VI 
NETUNN 


;:,rnV 


ENO 

SU9R0UTINF SOLVE 

CnNN0N/C0EEF/AE(40l.9E(40l*EE(30).0E(30)i AEE<30»»RPE(30I 
CONNON E(390O».OU(SO0lfOV(9OOtiOH<SOO>* 

I ANUC ( 900 ). soon 1 900 1 * S00T2< 900 1 * ECH( 9001 * FH2 1 900 1 » ESI 900. 14 ) * 

1 RHOt 900). Vise I900I. AOS* (900I.SCTM900t*SUI 1001 .SPClOOt. 

I O*H0nP«9CC». 

1 AXP ( 100 I. AXNI 100). AYE( 1001. AYNt 1001 tAlEUOOtf 

2 A?>*(ioc).cmoo).CT{io>.C2uiiooi.CTuno>. 

3 CIEO0C).CYE(10I.DlVG(100l.NTfl.NTE2 

1. AXNKC 1421. AXEKt 1921. AYNKdOEI.AYEK) 1921. A2NKI 1921. A IPKC192). 

2 SUk(192).SE|C(192) 

OTNENSION U(900I»VC900I.N(SOO).EE(900).E(900)*VEEE(900) 

OINENSXCN GAEI900I 

Eoin valence (f(1).u( 1)). (F(9oii»vaM.(Faooii.Mmi 

F8<JI valence <F(1901).EEmt.(F«2001).Em).|F(2901).TENEm) 

FOUIVALEncE <F(3001),6AN<1)) 

CnNMHN/CYL/*(30).*N(30)»*NVf30).YS*(30».rSV*(30).lELAX 

CONNON/eETD/X(4AI*V(30>.I(30).KSI40).rSt30).2Sf30t*KSUt40). 

1 YSV(30l.7SM(30).XOiFt40).Y01FI30).IOIF(30)»FXF(40).FXN(40). 

2 CTE(30I.FYN|30).F7E(30).FINI30).OT.TtNE 
CQNnaN 

1 /CtNOF K/tOCC* I0FU.I0Q2. t0N2.1DN20.Il)CQ2. IDHl. I0H2. IDNl. tONO. I0N02 
l.inn. tOOH.IHCESf tLC.lLH.INAT.ITE*. JIJ»Nl»N2.N3.NA«N0l09*N€Ln9E* 

? NLN.N0.NSE.NSl.NS2.t0CH 

3/CCMF"UCESUN.HSUN.F0.EELN««GA$«R6AStH*SNtNV.TKINVtnN.LN*G 


A as OR 

Aeso* 

ARSOR 

AaSOR 

ARSOR 

AISOR 

A9S0R 

AasoE 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSON 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

ARSOR 

SO 

NASAX 

CONFR 

4STEE 

RAO 

RAD 

CONFR 

CONFR 

CONFR 

ctona 

CTONA 

CONFR 

CONFR 

CONFB 

CONFR 

C0NF9 

CONNQN 

CONHON 

CONNON 

COENON 

NOX 

nor 

NOX 

4STEE 

NOX 


394 

199 

396 

397 
39R 

399 

400 

401 

402 

403 

404 
409 
406 
40T 
400 

409 

410 

411 

412 

413 

414 
419 

416 

417 
410 

419 

420 

421 

422 

423 

424 
429 

426 

427 
429 

429 

430 

431 

432 
2 

49 

2 

le 

3 

4 
4 
9 
6 

3 

4 
7 
e 

9 

10 

11 

2 

3 

4 
9 
2 

3 

4 
3 
6 


2i\ 


«/C»A<>AI*/*$UM30f 3l»ENViEKiHSUftO*ftOEBU6« NS»EA»O0tOltO2*<)3»0A*RHOI'B» 
A Si<»SRWI30)»5P0»Sm0i>S2«3OliTKtlAOIARtinEBU6*LEQUU*LREACT* 

A LENER»EOKIJ>lCONVG 

nnUBLE RRFCISIQN CRSUN*ERWiER»Ea»HSUBO»HSUR»RA* RRLN* 90» 0&* 02*09» 

I 04»RGAS»R(;ASlN*RHQRP»SN»SRINV»SNN«Sl»S2»TR«TKItlV»TLr<fSnO 
2»FUT>EST 

CQNhnN/STEPA/RE1iRl»PEXR2*RE«R3»PEXR4»ERl*ER2tER3>ERA*CEBUl»CEBU2* 

1 CEB(l3*CFBUA*AEXRl»AEXR2>AEXR3»AEXM»BEXPl*BEXf2*BEKRl»BEXRA. 

2 CFXR1»CFXR2*CFKR3»CEXRA«FUT*FST 

LOGICAL LADtAB*LC0NV6»L0EBUG>LEGUtl»LNRG»LRCACT*LENER 
CQMNQN/INT/L»R»N,LCV*nCVtNCVtLRl*BRltMPl»NI*NJ»NR»NIHJ*NINJNKtNVt 

1 NNV,N 60 Ttl»KtISTR» 4 SrR>RSTR»MVN( 39 )»RN( 30 >f JN( 30 )*tSTFP» 

2 l 3 aL«En 2 l«IPRINTO 3 )»rtTLEtl 0 f 93 )»tXV«ISItR»JSMP»RElAXf 3 SltNPt 

3 NRH 0 »N 6 AP»lWLl< 30 * 9 )*lHLQ< 3 O» 9 l»JNL 0 ( 4 O» 9 l»JMLIIA 0 f 9 t>tMEI* 

4 tWEn*Pni • JWII* JUia» JUQIt 4WQQ» IfltItJRINt 30*301 »IPINI40» 30) 
CO**RQN/IN{)EX/lPAR*LRREP*ISTUN»lNCONP*ITRAO*NVRX*MVRY*NVRt»JPLANE 

1*PLAXmi»LVK»L«D»LVFUOX*LVFU*LVCO* LVH*LVRX*LVRY*IVR2*NVF(32)* 

2 tJUMP*IRES*TITlE2(20l»IRAXiJRA«(*Kt)AX*NVCO*FUHC0*NVH2Q*NVCn2» 

3 NVN2«NVCH«|iiVH2 

CORRnN/CN 0 X/lYHl*LVH 2 *LVNl«LVNQ»LVN 02 »LV 0 >LVQH*LVH 20 *LVN 2 *LVO 2 * 

1 LVC02»lVFUl»LVC(]I*NNaX*tNax*tTNQX>$N0K»Tt«0X 
CORRON/THEPP/NVH»«VFU*NVaX»NVFI)OX>NVTE*RaOEN>IOR*FSTOIC*HPU>CP* 

1 6ASC0N*RH0CQN.UNTC0NiPRESS»NVFAV*rCYLW*TINLW*TLtP>AC0EF(4). 

2 T4*0FAC*WFU»WC02>WCO*Y0X*MH20»M)t2*HYY»CXX»RATI01*RATI02» 

3 RATtC3>RATtC4»HCQ*TAN*ITWAlL 
CnnRQN/CTOPA/KENO*tCTDFA(32) 

‘•"-SUBROUTINE SOLVE IS USED TO SOLVE THE FINITE-DIFFERENCE 
EOllirirHS BY THE tri-oiagonal-ratrix-algorithhstohai. 

ENTRY SOLVEl 
RFIAXR»1,-PELAX«NV) 
on 10 J«JSTR*N 

K4H*KN(K1*JM(J) 

TS-TNIK J.BGrTO) 

1F-!WL0<J*NGCT0) 

no 10 i*is*te 

LIJ«JRUI*f 

LP«KJP*I 

LPF>LP«PVPO<VF(NV)) 

I 7R.LPF4AINJ 
17H.LPF-MNJ 
PL7P-F»ITP) 

IF (NV.E0.3.ANO.R.EO.NP1) FLZP-M( LI J42*NINJ I 
CONTINUE 

SP(UJI>< «XB(LtJ)4AXP(Lrj)4ATN(L14)4AYP(LI J|4AZHUIJl4A7PfLt J)- 
ISPILUn/RFLAXlNV) 

^T^PF COEFFICIENTS FOR CYCLIC TONA, 

LPC*T-l*<4-2)*IN|-2)t(R-KSTR)*«NI-2)4«N4-2> 

A»H«IIPC)**XML14) 

AXPKIIPCI-AXPILIJ) 

AYNKIl PC)«AY"UIJ) 

ATP«n PC)"AVP(LIJ) 

ArHK(lPC)*A7HUlJ) 

AFPRUPO-AIPUIJ) 

SUYILPn-S0llI4)4SPUlJ)*RELAXH*F(LPF) 

SPRILPC)-SPaiJlAl.OE-SO 

Si)(l 14)*SUU !J)4SP(IT4)4RELAXNPF(LPF)*AIN(IIJ)4F(IZN|4AIP«II Jl* 

1 F17P 

GO TO ciif i?*i3*iO)*Nr,nTO 
11 nuftP)"nu(iP)/$PU I J) 
on TO 10 

1? OV<LP)«OV(IP)/SPUI J) 
r.o TO 10 

1) I)MILP)>DH(I.P)/SP(L1A) 


NQX 

T 

NOX 

B 

NOX 

9 

NOX 

10 

NOX 

U 

4STEP 

4 

4STEP 

9 

4STE* 

6 

4STEP 

T 

NOX 

12 

CONHQN 

6 

49TBP 

« 

4STEP 

9 

CONHQN 

9 

CQNNON 

10 

CONNON 

11 

4STEP 

10 

CONNON 

13 

4STEP 

11 

NOX 

16 

NOX 

17 

CONNON 

19 

CONNON 

16 

CONNQN 

17 

CONNON 

18 

4STEP 

12 

COFNENT 

184 

CONNENT 

189 

CONNENT 

186 

SO 

7 

so 

8 

so 

9 

so 

10 

so 

11 

so 

12 

so 

13 

so 

14 

so 

19 

so 

16 

so 

17 

so 

18 

so 

19 

so 

20 

so 

21 

so 

22 

so 

23 

CONNENT 

187 

CTONA 

9 

CTONA 

6 

ctona 

7 

CTOHA 

8 

CTOPA 

9 

CTOHA 

10 

ctdna 

11 

CTONA 

12 

ctona 

13 

SO 

24 

SO 

?9 

SO 

26 

so 

27 

so 

28 

so 

29 

so 

30 

so 

31 



ORIGINAL PAO:: IS 
OF POOR Q-AIHY 


ORIGINAL . . 

10 COMTIMUC OF POOR QUALITY 

NV«h.im) 4 k| 4 NVMNVF(NVM 
TSU«»f$T»4l 
JfU>*«JSTF4F 
INQNA»«ICTnF*(NV) 

00 AS INOolf INQHAX 
60 TO ( 20 iS 0 )*IRV 

?0 CO*«rtNUF 

c— ~*TP ka TAATEOSE in X-OIRECTION. 
no 21 Ai>JXT*»H 
60 TO I2A(2SI»JSWF 
24 J«JJ 

60 TO 26 
?S 

?6 CONTiNUf 

LPFaNVXN4jOt4| 

IS>IWII( J»P60T0I 

1 T-INL 0 I 4 »N 60 T 0 I 

ISTM-IS-l 

LPF1-IPP4ISTR1 

AP(TSTRn>C* 

4 P« ISTPllaFIlPPll 
no 22 I*IS*IF 
LIJaJNlJI«I 
trP«tPF4Ni4i 
lYPaLPF-NMI 

STORE aSPI 1. 1 4 t'AXN (LI JIPAPII-II 41,6.30 
APeil.AXP(lI4WSTQRE 

22 jJJJJ*’<50UI4»4AYP(tl41*F(iYP>4AYNUI4>*F(iVN»4AXHUI4»*6Pn-lM/ 

ISUn{>IS4TE 
00 23 II-IS»IE 
i-TSypi-ti 
IP»LPF 4 I 

24 *tLPt-AP(n 4 F(lP 4 l) 46 P(I| 

21 CONTINUE 

4SNPa3.4SMP 
60 TO (?Pt 20 )* 4 SHP 
28 CONTINUE 

60 TO ( 30 f 40 )rIXY 

C— — TONA TRAVERSE IN Y.DIRECTION, 

SO on 31 II«ISTR*L 

60 TO (34,3S|»ISVP 
S* fll 

60 TO 36 
IS f«tSON*tl 

36 CONTINUE 

tPF«NVKH4| 

JS-4VII(I>N60T0141 

4 F«iVLrtI»N 60 TO».l 

JSTRl* 4 S-l 

LPP 1 >IPF 44 P( 4 STR 1 I 

AP( 4 STR 1 »« 0 , 

8P(4STPnaF(lPFl» 
no 32 4 « 4 S* 4 E 
II 4 * 4 N( 4)41 
L*P»NVNN4iI44l 
tXN«HP -2 

Sr<lRE*SP(L 1 41- AVMLI4I*AP(4-1* 41,6-30 
*P(41 "AYPUNWSTORE 

42 **(2l*(SyH!2l4AXP(LI4>PFUXP)4AXNUI4l*P(LXN|4AYN(Ll4|6|A(4.i||/ 
ISTORF 
JS'|N|« 4 S 44 E 
DP 34 44 - 4 S* 4 E 


SO 

32 

so 

33 

so 

34 

so 

33 

so 

36 

so 

ST 

so 

36 

so 

39 

CONNENT 

186 

so 

40 

SO 

41 

so 

42 

so 

43 

so 

44 

so 

49 

so 

46 

so 

47 

so 

48 

so 

49 

so 

90 

so 

91 

so 

92 

so 

93 

so 

94 

so 

99 

so 

96 

so 

9T 

so 

98 

so 

99 

so 

60 

so 

41 

so 

62 

so 

63 

so 

64 

so 

49 

so 

44 

so 

4T 

so 

48 

so 

49 

so 

70 

COMMENT 

189 

so 

71 

so 

72 

sn 

73 

so 

74 

so 

79 

so 

74 

so 

77 

so 

78 

sn 

79 

so 

80 

so 

81 

so 

82 

so 

83 

so 

84 

so 

89 

so 

84 

so 

87 

so 

88 

so 

Att 

so 

90 

sn 

91 

so 

92 

so 

93 


241 


4<<jsuni-jj 
iP>L*F*jn| j) 
t*F»i**m 

*=(IP>-Af( JltFCtYFUDFU) 
SI CnuTINUF 

TStfr*a>iswF 
An TO i3F*ao»*nwp 
IB CONTINUE 

eo TO (40»20)*txr 
♦0 CONTINOF 
4B CONTINUE 
BFTURN 




ORIGINAL F 

or POOR Q.!;u.!iY 


'VPl 




H4 


ENTftr S01VE2 

— CYCUtC TON* t»i 7-DIRECTION, 

KENO>N 

IF(NV.E0.3tKFNO-NFl 

IFf tCTOFAINVI.EO.OlOO TO 606 

iNOMX-ICTCFAfNV) 

DO 609 |N0«1,IN0FaX 
00 600 J>JSTR*N 

ts«iniii jfNcoTni 

lF-IWtO«J»NCOTC» 

00 600 I-ISflE 

I.IJ*I*JI*(JI 

l!iNV«UJ«FtVF(NVF(NVn 

LRTTR<itI4NV4RF(RSTR| 

tFrSTR-I-l4<J-2)*<NI-2t 

*»(KSTR»a«7FK<lFCSTRt 

BRtRSTfl)»A7M«LFCST»l 

FF<KSTR»-SUKaFCSTR»4AXHMLFCSTRI*FUFSlR-n4AKRR(tFCSTR»*F(LFSTR4 
?I t4Ari1K(|.PCSTR|«FUFSTR-Nn4ArFKtLFC1TRI*F(LRSTR4Ntl 
n»(NSTRl<5RF(LRCSTft) 

TF(nptKSTRt.tT.i«E-30IDR|KSTR)>t.E30 

KNTN»KST*41 
on 601 F>KFINfREND 

LFC-I*l4tJ.7)*(NI-2l4(K-KSTR|6<Nt-Et*tNJ-2l 

L»*ll JNV4RN(K1 

A»««1*A7»F(LFC> 

Rtf.»7f*KUFCl 

CN«SUKUPCl4*«PK(lPC**FaP-l)4AXM(tFCt6FUF4l|4AT«(lRC»*FU»-Nll 

2 4AYPK(tPCt*FllP4Nn 
OK-SPMtPCI 

BP(lO-BK*eP(R-ll/DP(K-l» 

FP(«|«EP(P-nP6tC70P|K-l)*CR 
OPrtl-OP-BKPAPIK-n/OP IK-11 
IF(0P(Kl.lT.l«E-30IDP(K|al.E30 
CONTIHUF 

KStjp.ttEF0-24XSTR 

APP I KFND-1 1 • t *P IKENO-1 1 4BPIREN0-1 1 1 /DPI KENO-1 1 
BP»Hf6N0-l 1«FP(KENO-ll/OPtKENO-I I 
KENONpaKENO-2 
on 60? KK-KSTP»K|N0N2 

traHSUMotTK 

APP|Rt*IAPIKi*APP(K4lt4B»tK11/IDPfKl4l«0E-30l 
K*P(K t"(A»(R)«RPP<K4lt4EPINHEI0PIKt4i*OE-30> 

CONTINIjf 

OENONoOPIKENOI-BPIKENDI-APPIKSTRIPAPIKENOI 

let A4X»rfN0P|.lT,I,F-10)OENnn>»l,E30 

FFNO«t«PP(|tSTR1*AP|KEN0l4FPlKEN0l 1/OENON 

«ENOiil»KEhO-l 

no 603 P-R9TP,KEN0N1 

l*«ll JNV4RPIKI 

FIl*) -APPIR )4FEN04BPP(K) 


so 

so 

SO 

SO 

SO 

SO 

so 

so 

so 

so 

so 

so 

so 

so 

CONNENT 

CTONA 

CTONA 

CTONA 

CTOMA 

CTOPA 

CTONA 

FEB2 

FEB2 

FE82 

CTONA 

CTONA 

CTONA 

CTO"A 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTOHA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 

CTO"A 

CTONA 

CTONA 

CTDNA 

CTONA 

CTONA 

CTONA 

CTONA 

CTONA 


94 

99 

96 

97 
96 
99 

100 

101 

102 

103 

104 
109 
106 
107 
190 

14 

19 

16 

17 

IB 

19 

4 

9 

6 

21 

22 

23 

24 
29 
26 
27 

25 

29 

30 

31 

32 

33 

34 
39 

36 

37 
36 

39 

40 

41 

42 

43 

44 
49 

46 

47 
4B 
49 

90 

91 

92 

93 

94 
99 

96 

97 
9N 
99 
60 



rOCii QLVuinr 


*» 


<k01 CnNTIHUf 

L^rFolUNV^KtllKENOI 
f O.FCf >-FfH 0 
^0O CONTimtE 
CQ 1 TINUF 
606 CONTINUE 
•FTUHN 
END 

SUKttQUTlNE EEEINT < ISTRT»lSTOE»NVVtfl 
CONNON FO 900 l»fiUt!l 00 »» 0 V< 900 l» 0 llt 900 )* 

t *NUC 1 900 1 » Snon C 900 1 * S 00 T 2 < 900 ) » FCH ( 900 > • FH 21 900 1 *FS< 900 » U 1 1 
t RHO< 900 t»VISC< 900 l»AB$N< 900 )*SCTO< 9001 «SUI 100 l»SFaOO)» 
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CQNN 0 N/GR!n/X< 90 )tYO 0 )»Z< 30 )*XS( 40 l»YSO 0 )iZS< 90 l*XSU(A 0 t> 

1 Y$V< 3 CI*ZSH< 30 >>XOIF( 40 l»TOIF( 30 )*ZDlF< 30 l»FXPtAOI»FXlM 40 )» 
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1 » IOQ» lOOH* INCPSt ILC» ILH« f NAT* ITER* JJJ*Nl*N 2 »Na»NAtNOinB»N 0 LO 8 Pi 
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4 IFNF«*EDK 1 J»LC 0 NVG 
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C HiJMfdS Of CHf»«IC*l 5*fCIFS, IS?<!l*l«t*HS| AMO TMf f CMP Ff ATUtf TA» 
c r,lVFN T»4F WAIUFS OF SA>«C VAAIAAI.FS AT NFieHAOAlNR NOOFS* AMO VALUES 
r AT <* AT A PPFVtOUS TIPF STEP Q« FSTTOATES FROM PREVIOUS ITfRATIO** 


WHERE 


AP • AF P AW t AH A AS « AH » AL * APP 

AO DEMOTES COMVECTIVE AnO DIFFUSIVE PLUS COEFFICIENTS 

AT NEIGHROPIHC MOPFS 0-E«WiNtS»H ANO L« F6/CU M-SfC 
APR IS IMFtUFNCE TERM FRQH P AT PREVIOUS TIME STEP 
S2(l) IS THF MOLE HO. OF SPECIES 1 AT THE POINT P* Kn~NOLEI/KG 
S2m»0 IS THE •'OLE NO. OF SRPCIES I AT HCAR-NODE 0. 

PR-'AOLF I /KG 

SO(S?mt IS RATE OF APPEARANCE OF SPECIES I DUE TO 
CHEMICAL REACTION, K6-"0LES I/CU M-SFC 


AND 


ARRH.P - AERH.E A AW*H*N * 
♦ SOIH) 


AN*H(N a AS*HtS A AHRH.H A ALAH.L 


WHERE 


H,P IS THF mixture ENTHALPT AT POINT P. J/RG 
N,0 IS T^E MIXTURE ENTHALPY AT NEIGHBOR NODES 0. 

SOIHI IS RATE OF HEAT ADDITION TO CDNTRQL VOLUME «Y 
RADIATIVE AND KIMFTIC HEATINft, 4/CU M-SEC 

calling program must SUPPIT FOLLOWING VARIAOLES THROUGH LAPELLEO 
COMMON BLOCK /CPARAM/ 
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temperature AT NODE P> DEGREES KELVIN (ESTIMATE) 
PRESSURE AT POINT P. PASCALS (NT/SQ M) 

AP* RG/CU M-SEC 

- (‘.E*S2mAFAAWAS2m.W..A4L*S2(l liLI / AP 
PREVIOUS SOLUTIONS OR ESTIMATES FOR S2(l),.. 

IF TEMP tk is SET TO lERO, PROGRAM CONSTRUCTS 

OWN estimates 

UE*H,FaawaH«W.,.aAL*H.L ) / AP » J/RG 
00,01. 02,03, 04, • COEFFICIENTS IN ERPRESSIQN FOLLOWING. 
^n(M) » -(OOpOIPTyORPTpmEaOSMTPpIpCIAPTpmA) » J/CU M-SEC 
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lAOIAA - T — IGNORES AMOVE EXPRESSION FOR SO(H). TARES 
SnuRCE(H)-0,C 

LEOUIL • T — - fPUIlIBRIUM SOLUTION SOUGHT 

. f RINFTIC SOLUTION SOUGHT 

LREACT • T — CHEMICAL REACTIOH (FOL OR RlN) 

. F — aotabatic mom-reacting mixing 

lOEBUG • T — * INTERMEDIATE DEBUG PRINTING 

, F HQ intermediate DEBUG RRINTING 

poprETURN*** 

S»m,I-l,NS IS THF MOIE NUMBER OF CHEMICAL SPECIES I (KG-MOLE I/R 6 ) 
TK TS Tmf temperature (DEGREES K| FROM THFRMAL ENERGY EQUATION 
HSUBO IS STATIC enthalpy AT NODE POINT P (//R 6 ) 

SHOP TS THF MASS density AT NODE POTNT P (KG/CU M) 

SM IS RFCIPPCCAl Of MixTlIPF MOLECULAR WEIGnT CRG-MOLF/RG) 

ASUB(T»S> IS T^-f SPECIES N***f I^OILFRITM FIELD) 

*«POIMEHS|CNSPPP 

ML" p NUMBER OF ELFMFNTS (T) 

NX • NliPAft OF CHEMICAL SPECIES ( 20 ) 

JJ « NI)PAFR OF CHEMICAL RFacTIONS (SB) 

tHFSF OIMFNSICNS may be AOJIJSTIO by SfMPLY CHANGING IMF 
FOnniATNC tAPFILEO COMMON lUOCKSR 
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AND TME FnuOHiH® OIHfNSION STATEHENT fN ftOUTlNE CALC 
SMnij |.0 AF pnUBlE OfBFNSIONFO FOR BACMmCS 

A<NS« 2 »NS« 3 ) 


DOUBLE PRICISIOB ALtBO»CFSUB»EN(f*CRiFO»HSUBO»MSUFiHOf PA»PI»PPLN» 

1 OOAOltOa.OaAOBARfiAS.RfiASIM^RHOPASNASHIMVAStlVfSSAVlASOASl.S*.!"* 

2 TRlNV»ILN»r»SRO 

OnUHE PRECISION ENV$(tVtFACTQR»$NALL*TSAVE*KHI*XI.D 
LOGICAL lAOIABtlCOMVG. LOEBUGf LE0UIL»LNR6.lRIACT»lCNER 

COUPON 

3/rCHF"l/CPSWB»MSUB»FQi PPtH»R6AS*RCASIN»SNlN¥»TRINW»TLN»lH«G 
l/CFOUTl/ALn»SOI»ATON< 3*7l»(<OC7)»PtlTt 

l/CINDE */I0CC»IOfU»l0Oi’»ION2*IDH80»lOCO2»IOHLAlDH*» IDNl# IDNO p IDNOZ 
I# TOO* TPOH* |HCP$» ILC* ILH* INAT* ITER* J4»Hl»M2»HS»NA*H6t0S»N0L0SP» 

? W|,**!iNO*NSB*HS1*NS2»IOCH 

1 /CPARAB/ASUM J 0 * 3 l*ERVi ER»HSUBO»NDEBUG*NS*PA*O 0 »Ol»O 2 »OJ*OA*RHriP» 

1 S-.SrNnClASBOASmOUSaUOKTR.LAOIABjLDEBUe.LEOUlLtLREACT.LEHER 

2,FO«lJ.lCON76 

1/CSPECF/^O 1 301 >$0001* SSAVE(30)*Z 17*2*301 
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THIS SMBPpnTIRE TS THE RAIN EOUILIBRIUN AND KINETIC SOIOTIOH RDOTIHE. 
THf CALLING PRrfiRAR RUST SUR»LT ALL THE VARIABLES EXCERT RHOR 4N0 SR 
THE lABfUIO CORRON HOCK CRARAR IN 51 UNITS. BOTH fOUIL 
snuiTIONS CLECUU-.) — B7 RINIRTIATION OF THE GIBBS FU»"‘T|ON — 

AHf) kinetic ILE0UU*F» solutions are calculated BY A Nf*. ,-RARHSON 
T6CMNto»F, CRER ALSO CONTROLS THE LOGIC FOR PROBLER CEllU 
RfirERFNCP CRpR IWASMINGTON STATE UNIVERSITYI RARCH 1‘JTft 


DATA FACirRO.COO/.SNAU/ltOO-O/ 


•A**t(|»HAl SPLUTICRPR* 

OFTERHtNF fOUIVALEHCF RATIO AND IF OUTSIOI INTERVAL (0*1*10) ASSURE 
*.«n rfaCTIFR and return AOIABATTC RON-RFACTID NIXTURE pRORE*TIfS 
X*WF GtVFH ESTI"ATES OR RROGRAR GENERATEO fSTIRATES IF TK IS SR*LL 
ir SOLUTION IS SUCCESSFUL* RETURN TO CALLING ROUTINE OTHERVISF* 

FVTFR RRPBIER CFU LOGIC BELOM 
LCPNVG-.TPU6. 

CALL FPAIIC 

IF (.HOT.lOfBUG) GO TO 30 . 

HRITF 0*10) lREArT»LFOUlt»LA0IAB*fRV*FR»HSUB0*00*OI*O2*03*GA»RA*TK 

)0 FPRKATOX. 3 LI.IR 10012 O) 

TF |NDrKi|6»F0,H GO TO ?0 
HPtTFIft.IO) Oim.t-l*NS) 

VRITMA.7C) 02m.I"l*NS) 

FnBKAT(llX*lR10D)2<>3)) 

30 IF <«NrT. (REACT) GO TO BOO 
FRVSAV«F*V 


CRF.K 

CRFK 

C»EK 

CRFK 

CPCK 

CRER 

CREK 

CREK 

CREK 

CREK 

CRFK 

CRFK 

CRFK 

CREK 

CRFK 

CREK 

CREK 

CRfK 

CREK 

NOTX 

CRFK 

CPFK 

CRFK 

CRFK 

CRFK 

C^f K 

CRFK 

CRfK 

CRFK 

CRFK 

CRfK 
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11.976C9 IS t-tOfl QF STO FATH* 101929.0 H/H**2 
F»L»*-0lt)6(FO-11.9Z60 ;,0 
TSAVf -TK 
no 40 I-I.NS 

40 ssAVFm>szm 

IF (TF.IT.SFAUI on TO 100 

CAU SFECf 

IF (LCONvoi 00 rn ooo 
no 101 t*i.HS 

iFisFm.iT.z.oo-Eoiszm-siin 

101 CONTINUE 

IFI.NOT.tcrNVOGO TO 900 


•••PifOBlEF CEf l*** 


.. Z ■ ■m-w , .«ar. r VfT TFUH^Cna AJ rtlLL IJII 

*0nf 1 LEOUIt m Jp tA0|A9 • T 

“OOF 2 lEQUIL ■ T» LAOIAB • F 

“OOF N •*. tfOUlt • Fp LAOIAB ■ T 

“006 4 L6CUIL ■ Fp LAOIAB • F 

‘Si® <1NB«-F» AFTEB SOLUTION FAILURE NHEN LEQUIL -F. 
LOGIC TO FIND SOLUTION IS CONTROLLED IN CHARTERS 1 AND 2 BELOW 
section. NEW ESTINATES ARE OETERNINED EITHER BT 
SAtfEO GIVEN ONES. NEW ASSIGNED ONES. 0» SOLUTION FOUND NOT AT 
RCoiiirfD CONOITICNS. THF VARIABLES NEXTOK AND NEXTNfi ARE ASSIGNED 
THE STATENENT NMNBERS OF WHERE TO 60 IF THE SOLUTION ATTfiHRT IS 
SUCCESSFUL OR NOT. RESRECTIWELT. IS 

ASSIGN 90U TO NESTOK 
ASSIGN 100 TO NEktnG 
GO TO 520 




CHARTER 1 • * 4 • * 


***EQUILIBR1UN*** 


cases IN WHICH CONVERGENCE WAS NOT ACHIEVED ON FIRST CALL TO S*ECE 


too “OOExA 

IF UFOUtll nOOF-MODE-Z 
IF (LAOIABt “CPF-nOOE- 1 
LFQUK -.TRUE. 
lAi>tAA*»T«>UE. 

IF (“OOE.IT.S.OR.TK.LT.SNALLI GO TO LTD 


first use given FSTINATFS for EQUIL SOLN in rode 3 AND 4 RRQBLEHS 

tk-tsave 

on 120 I«1 pNS 

120 szm.ssAVEm 

ASSIGN 200 TO NEKTON 
ASSIGN 170 TO NFKTNG 
GO TO 500 

OARBAGF FSTINATES IOOBOON and NCBRIOEI 


*70 TN-SBOO.OOO 

F^-OtlOO/FLOAnNSI 
on 171 I-l.NS 


CREK 

155 

CRFK 

lift 

CREK 

157 

CRfN 

15B 

CREK 

159 

CREK 

l&O 

CREK 

IM 

CREK 

152 

CREK 

IAS 

CREK 

164 

NOXK 

12 

NOXX 

li 

NOXK 

14 

NOXX 

19 

CREK 

169 

CREK 

166 

CREK 

167 

CREK 

168 

CREK 

169 

CREK 

170 

CREK 

171 

CREK 

172 

CREK 

173 

CREK 

174 

CREK 

175 

CREK 

176 

CREK 

177 

C»iK 

17B 

CREK 

1T9 

CREK 

180 

CREK 

IBl 

CREK 

182 

CREK 

183 

CREK 

184 

CREK 

189 

CREK 

186 

* * CREK 

107 

• • CREK 

188 

CREK 

189 

CREK 

190 

R CREK 

191 

CREK 

192 

CREK 

19? 

CREK 

194 

CREK 

195 

CREK 

196 

CREK 

197 

CREK 

198 

CREK 

199 

CREK 

200 

WS CREK 

201 

CREK 

202 

CREK 

203 

CREK 

204 

CRFK 

209 

CREK 

206 

CREK 

207 

CRFK 

208 

CRFK 

209 

CRFK 

210 

CREK 

211 

CRFK 

21? 

NOXXK 

6 

CRFN 

214 



171 

S2J n-5N 

CREK 

215 



1N-0.10C 

CRFK 

*16 



If INOOfaFOal) ASSIGN ROD TO NERTOK 

CPFK 

217 



IF INnoE,E0.2l ASSIGN 300 TO NEXTOK 

CPEk 

21R 



IF (N00F.CF.3) ASSIGN 200 TO NEXTON 

CREK 

219 



ASSIGN 600 TO NFXTHG 

CRFK 

220 



GO TO 300 

CREK 

221 

c 



CREK 

222 

f* 

• « 


CREK 

223 

r< 

• 4 


CREK 

221 

C 



CPfK 

223 

C 

♦••KTMFTIC*“* 

CREK 

226 

c 

SPCTiaN FHP KINETIC SOLUTION FftQN ADIABATIC EflUUlftftlUN ESTMATES 

CP|K 

227 

c 

(NODE K AND A OHLTl 

CREK 

220 

c 



C»EK 

229 

c- 


NFaP-FOUUIBRIUN SOLUTION (KINETIC WITH ENV-1.00~S KG/CU B-$EC> 

CREK 

2 30 

c 



CRFK 

231 


200 

LFQUIL". false. 

CREK 

232 



IX«0 

CREK 

233 



EHV-l.00-3 

CRFK 

23A 



Xin-FHV 

CREK 

*31 

INC»F«5( ntNnff SPECIIS FPQN eaUUlA^tUN iSTIM*T<S 

CREK 

236 



on 201 r-i»NS 

CREK 

237 



IF (S2m.lT.SNALL» S2m«SNALL 

CREK 

210 


201 

CONTINUE 

CREK 

239 



ASSIGN 230 TO NEXTOK 

CREK 

210 



ASSIGN 210 TO NEXTNG 

CREK 

211 



GO TO 30C 

CREK 

212 

f 



CREK 

213 

c 



CREK 

211 

c- 

.«^-FA!LUAE ON NEAA'EQUIL WITH ENV«XLOi DECREASE EHV BY AN ORDER OF 

CRfiK 

215 

f. 

-MA6NITUDF AND ATTEMFT AGAIN* ITERATING TNIS WAV ilR TO 12 TINES 

CREK 

216 

c 



CRFK 

247 


?10 

FNVxENVtO.lOO 

CREK 

21K 



XLO-F-V 

CREK 

21R 



IV-IX+l 

CREK 

230 



IF IIX.E0.12) GO TO 610 

CREK 

*31 



TK-TSAVE 

CREK 

232 



DO 211 t'l»NS 

CREK 

233 


*11 

S?(TI •SSAVECn 

CREK 

231 



ASSIGN 230 TO NEXTOK 

CRFK 

233 



ASSIGN 210 TO NEXTNG 

CREK 

256 



GO Tfl 300 

CREK 

217 

c 



CREK 

256 

c 



CREK 

239 

c 


-have NEAR-EOUIL SOLUTION. SO FIRST TRY DIRECTLT TO OBTAIN 

CREK 

260 

c 


-RFRUIPEO SCIUTION AT GIVEN ENV 

CREK 

?6A 

c 



CRFK 

2fi» 


210 

ENV.FNVSAV 

CREK 

263 



IF (NnnE.EfliS) ASSIGN 900 TO NEXTOK 

CRFK 

261 



IF ("nDE.fO.A) ASSIGN 300 TO NEXTOK 

CREK 

263 



ASSIGN 210 TP NEXTNG 

CREK 

266 



GO TO IfO 

C»6K 

267 

r 



CPFK 

26B 

c 

•••UPPER BRANCH PARCHINGRA* 

CREK 

269 

r 


HAWE A kinetic SOLUTION B((T AT ENV .LT. ENWfAV. START AT 

CREK 

270 

r 


KNOKN SOIUTION and IK;REASF ENV BV factor TO WOVE TOWAROS 

C»fK 

271 

r 


A SniN THERE. IF SUCCESSFUL, REPFAT UNTK FNVSAV IS PFaCHFO IF 

CRFK 

2 7< 

r 


NOT SUCCFSSKIJl START HALF INTERVAL SEARCHING OFSCRIBEO RPI PW 

CBfK 

271 

r 



CREK 

2 7^ 


210 

FNV«XtP*F ACTOR 

CREK 

275 



IF (ENV. 6T.ENVSANI ENV-ENVSAV 

C»F* 

276 



xHI-Fnv 

CPFK 

277 



t«-0 

CPfK 

276 


,>‘■>0 


t’AGl, IS 
OF POOR QUAUTY 


original page: is 
OF POOR QiJAury 


r 

r 

c 

c 

r 

c 


TK.TSAVf 
DO 29J 
j'n S2(n*sstvf III 

?90 TO NENTOK 

TP IP»«W.Gr.FKV5»W.»NO,HOOf,fa.9» ASSIGN SOO TO NEXTOK 
IF lENV.CE.ENVSAV.ANO.nanE.EO.AI ASSIGN SOO TO NEXTOX 
assign 270 TO NFXTNG 
GO TO SOO 

•**HAtF-INTEBVAl SEAACNING*** 

HAWF SOLUTION AT tic «UT NOT AT XHI. HENCE STAXT INTFAVAL 
SFA»CH|N6 ft SETTING ENT TO THE lOGAAITHNIC ATEAAOE 
IF ITEAATINC FDFF THAN TFN TINES* TEANINATE* 


270 It-|K*1 
TX"TSATE 

no 271 I*1>NS 

271 S2IT)-SSAVFm 

IF flK.GT.lO) GO TO 620 

ENV-OSORTIXLQAKHtl 

XHT-ENV 

ASSIGN 2S0 TO NEXTOK 
ASSIGN 270 TO NEXTNG 
60 TO 900 


C 

C**« 

C*** 

C 


**• 
• •• 




*66 

66 * 


*6* 

*6* 


*6* 

6*6 


6*6 

*6* 


6*6 

6*6 


CHANTER S 
CHARTE* 3 


666 

6*6 


6*6 

*6* 


r 

C 

c 

c 

r 

c 

r 

r 


6*«N0H.A0IAFATtC**6 

SFCTTOM FOR NON-AOI A8ATIC SOLUTIONS FRON AOIAGATIC ESTIFATES 
INOnF 2 AND A TNiri 

try DIRECTLY TO OATAIN NON>AD| ABATIC SOLUTION IF NOT SUCCESSFUL* 
START HALF*INTERVAL SCALING FRON THE AOIAOATIC SOLUTION 8Y 
nFFlNING A SCALING factor FO CO«0-1»OI TO NOITIFLY THE NON^ADTARATIC 
TF»“ 1 01 IN THE FNEFGY EGUATION IN S*ECF 

300 LAOIAG*. FALSE. 

Xia«0.0DC 

xHf.i.ooe 

F0»l,0t)0 

TX»0 

110 ASSIGN 120 TO NEXTOK 
ASSIGN 330 TO NEXTNG 
GO TO 900 

120 IF IFO.EC.l.OOOl GO TO 900 
XIO-FO 
FO.1.000 
XHt-l.OnO 
Ix-0 

GO TO 31C 
110 IX-IX61 

IF IIX.GT.IOI GO TO 3A0 
TKoTIAVE 
DO m I"1»NS 
131 S2m«SSAVFm 
Fo-o.spo*(xir*xMi» 

XHf.ro 

GG TO 310 

110 FO-UODO 
GO TO 61C 


CREK 

279 

CREK 

2N0 

CREK 

201 

C»EK 

202 

CREK 

203 

CREK 

201 

CREK 

20S 

CREK 

206 

CREN 

207 

CREK 

20F 

CREK 

209 

CREK 

290 

CRFK 

291 

CREK 

292 

CREK 

293 

CREK 

291 

CREK 

299 

CREK 

296 

CREK 

297 

CREK 

290 

CREK 

299 

CREK 

300 

CREK 

301 

CREK 

302 

CREK 

303 

CREK 

301 

CREK 

309 

CREK 

306 

CREK 

307 

CRER 

30R 

CREK 

309 

CREK 

310 

CREK 

311 

CREK 

312 

CREK 

313 

CREK 

3X1 

CREK 

319 

CREK 

316 

CREK 

317 

CREK 

310 

CREK 

319 

CREK 

320 

CREK 

321 

CREK 

322 

CREK 

323 

CREK 

321 

CREK 

3t9 

CREK 

326 

C»EK 

327 

CREK 

320 

CREK 

329 

CREK 

330 

CREK 

331 

CREK 

332 

CREK 

433 

CREK 

331 

CREK 

339 

CREK 

336 

CREK 

337 

CRFK 

330 

CR£K 

339 

CREK 

310 

CREk 

311 

CREK 

312 


2S) 


rj r> o 


•••« *••• 

0n^(^ ^0^^ 0000 

C 

C **«FAILUI»E EXITS*** 

r F*ftffi eouri o« kinetic sotn qk eouiv 

C *ETU*N AOIAEATIC» N0N-*EACT6D tltXTURE 

400 SN-0*000 

nn 401 i*i»NS 

S 2 in-sim 

SM*sN»s2m 

401 continue 
TK*1000.000 
X 10 »TK 
IHCM-l 
NSl«l 
NS 2 *NS 

rXTNV-l.OD-S 

DO 403 I«l>30 

CAU HC*S 

HSUN«O.ODO 

DO 402 K«1,NS 

HSU««HSUN*H 0 IK»*S 2 (K> 

402 CONTINUE 


•*** CHA2TEN 4 *••* 

*•*• CHAETE* 4 •••* 


RATIO OUTSIDE lO.l.lOt 
RRORERTIES 


*** 
• A* 


IF(.NOT.LA0IAfllHSUN«HSUN»(((a4*TK*03T*TK^02)*TK«fll*00*TKtNVt/ 

1(R0AS4ENVI 

TK>TK*n.ODe«0»900*(HSUBO*R6ASIN*TKINV«HSUN)/CPSUNT 

TXTNV«l,0OC/TK 


XHI»0*RSeTK-Xt0) 

xn«T!f 


IF (XHI.LT. 1.0001 OQ TO 404 
404 CONTINUE 
40* CONTINUE 

IF( •N0T.LA01A6)HSUa0*HSUn*R6AS*TK 


60 TO 400 


*••** 

«**•« 




• ••** 
***** 


***** 

***** 


***** 

***** 


CHAPTER 9 
CHARTER 9 


«**«* * 

***** * 


***i»RnflLEN CELL CAU TO SRECE*** 

TAICE the ESTINATES generated in CHARTERS 1*2 AND ATTENRT A SOLUTION 
with full EOUATIONS. if successful* UROATE the save answers WITH THE 

SOLUTION AND RFTU*N TO STATENENT NUNBER NEXTOK, If NOT* TM£ ACTION 
OFFENDS OH whether AN E0UIL4N PK KINETIC SOLN IS SOUGHT. FAILED 
EOKIL SOLN. RETURN TO STATEMENT NUNBER NEXTNG* WHILE FAILURE IN A 
KINETIC SCLN WILL BE FOLLOWED BT AN ATTENRT WITH LN*6>R •><» RT«0.0 
AND SANF ESTIRATES, SETTING RT-0.0 I*RLIES THAT A CHANGE IN TE"R 
FIELD HAS NO EFFECT ON SRFCIES DISTRIBUTION FOR THAT RARTICULAR 
TTFRATION. but does allow the species CHANGES TO INFLUENCE THE TENR 

CHANGF PARTIAL OlCOURLING OF THE ENfcRGr EGUATION. 

I*= STILL NO GOOD* RETURN TO STATENENT NUNBER NEXTNG. 


BOO CALL SRECF 

TF (LCONVG) go TO 940 
C SOLUTION failed TRY RT*0.0 
IF (LNRG) GO TO 920 
LH»G*.T»OE. 

BID r,r> in NFXTNq, (100* 170*210*290*270*330*6001 
B7D TF (IFCUTU GO TO 910 
«nO LN»6«,FA( SF. 
r.n TO BOO 

B40 If (INRGl fiC TO 990 
LNRf,*,TRUE. 


ORIGINAL 1''"’' ^'- 
OF POGi'< QiliVi inr 


CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

NQXX 

NOXK 

CREK 

NQXX 

CREK 

CREK 

CREK 

CREK 

C»|K 

CREK 

CREK 

NOXV 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CRfK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

C»EK 

CRFK 

CR£K 

CREK 

CRE" 

CREK 

CREK 

CREK 

CREK 

CRFK 

CRfK 

CRFK 

CRFK 

CREK 

CREK 

CREK 

CRfK 

CRfK 

CRFK 

CREK 

CRfK 


343 

344 

349 

34A 

347 

340 

344 

390 

3Bl 

392 

3B3 

3B4 

3B5 

396 
16 
17 

3B7 

IB 

3B9 

360 

361 

362 

363 

364 

365 
14 

367 

368 

369 

370 

371 
379 

376 

377 
3TB 
379 

Sno 

381 

382 

383 

384 

385 

386 

387 
3BB 

389 

390 

391 

392 

393 

394 

399 
3 96 

397 

398 
3 99 

400 

401 
*02 
*03 
* 0 * 
*09 
*06 
*07 




r,n TO IOC **fi6KnwfD pf« o.t.ppatt t/io/tb** 

M***«|F CnuPLFK CBSfS on not C0NWE»6e» IT H*T BE NECESSAKT TO****** 
M***«*FTlt»N THIS STATEBENT TO THE PtQfiHAH. •♦*♦!••*•• 

..•^SOLUTION IS SUCCESSFULt UPDATE SAVE AMSMEBS AND CONTINUE* 

*90 TSAVf*TK 

no 960 I>1»NS 
960 S5AVF(n*S2m 


GO TO NEKTOKt (200*290*290* 300*S2D*900t 








CHAPTEN 6 
CHAPTER 6 




«**ER«0R PE5SAGES*** 


900 WRITE(6*60n 

601 F0RH*T(1M0»10X*9(AH****)»I0H FAILURE TO FIND E8UIL SOIN**** 

A2AHAVG INLET PROPS RETURNED/) 

GO TO 690 

610 VRITE(6*6U) 

611 FORNAT (IH0*10*»3( AH****) »39H FAILURE TO FINO NEAR-EOUIL SQLN**** 
A2AHAVG INLET PROPS RETURNED/) 

r,n TO 690 

620 WRITE<6i621) 

621 FORNAT(lHOilOK»3(AM****(f3?M FAILURE TO OBTAIN KINETIC SOLN AFTER* 
AA8H TFN INTERVAL HALVING.,, AVG INLET PROPS RETURNED/) 

GO TO 690 

630 WRITF(6*«31) 

631 FnRH*T (IHO»IOK*3(AM****)*2*H NON*ADI ARATIC SOLN FAILED**** 
ilGHAniAR SCLN RETURNED/) 

GO TO 670 

P 

r —— restore failed PROBLEN node prior TO RETURN 

i: 

690 IF (NnOE.EO.2) L ADIAB**F ALSE* 

IF (NODE.E0.3) LEQUIL*. false* 

IF (NDDE«E0*A) LA0IA9**FALSE, 

GO TO 600 
C 

c~— FATLFD NQNoAOIARATIC solution* **return adiabatic 

r; EOlIU OR KINETIC SOLUTION 

c 

670 TR-TSAVE 
SN-O*0D0 

DO 671 t-l*NS 
S?m>SSAVF(I) 

671 SH*SN*S2(1) 

400 RH0P*PA/(RGAS*TR«SN) 

return 

END 

SURRmiTINI CALC 

f 

DOIIRI f PRECISION *L»B0*CPSUH»ENV»ER#F0*HSUB0*HSUN»H0»PA*PI*PPLN» 

1 oD*Ql*02*63*fl6*RGAS»RGA$IN,RH0P*SN»SNtNV*SNH*SSAVE*SO*Sl*S2*TK* 

> TK!NV*TLN*7*SN0 

DOtlRLI PRECISION RK# RK 2* TAC T» TACT2* TEN* TEN2»P1*K2*CEBU 
DOUBLE PRECISION KCTH»FUT*FST*SSS 
nouBLF PRECISION p,T 

DDi/ALE prFCISION ANO*B16»B*X*OSUN»EN#HM*MIN»»*OORV»PHSN»RMS4» 

1 RN,RT*Rl»R2*SS*9UN»S2ItTKl*TK2»TNl»TN2,TNl.TN2.XC#TM 
LOGIC At lA0IAB.LCCNV6*LDeB0G*LERUlL»LNR6*LREACT»LENER 


CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREk 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CREK 

CALC 

CALC 

NDRX 

NDXXX 

NOXXX 

NOXK 

ASTER 

NOXXX 

NOXXX 

NOXXX 

NOXXX 




rt 


nmintf ►wfcisiow 


rup 


THE EIHIOWING OOU6LF PPFCISION REOUIKEO QMLT FOR Iffi MACHINES 
nOURLt FRFCISION A»OTHl 

COHHCJN 

3FCCHEHt/CFSU0>HSUR»F(l*FFLN*R6AS»R6ASIM*S0tNV»TRIt«V»TLN*LNRG 

l/CF«UIt/*Ln»30l»AT0«O*TI»R0«T».Ftn> 

JL/CIN0FX/IOCO»IOFU»I002»n)N2»I0H20»I0C02»lOHl»I0H2» lONl* inHQ*I0N02 
l»lt)0* lOOH, IHCFS»UC»IlH#!RRT»Iff*»44*Hl»H2»t(3»*lP»»«l08*NGt0RF» 

2 NLR,NQ.NSR»»lSlit«S2>!OCH 
I/CHATRt/«n2l*Y02) 

l/CR*RPFF*SUBlSO*3t»EHY»ER»MSU#0**IOeill«iOS*FA#flO*«l#02*tt3»0*#RHOF» 

1 $N»SNW<30) f SF0»Sll30l»S2l30ttTR*LPDIABtL0ESU6»lFdUU«LREPCT*lENFR 
2tF*>KtJ»LCnNVG 

lFCRE*rT/RPI3H iBKEtEG) »IOf6t36»»ROORC3G>»TACH36)»T*CT2t3G>» 

2 TEN(36WTEN2<36)*K1I36UX2(36IiCEBU( 36) 
l/CS»FCE/H0(30)*SOI30)*SSAVE(30)»2(Tt2i3Ot 

CQ1R0N/STEF4/FE>RT»REVF2*FEXP3#FEXF4»ERl»ER2»ER3*ER4»CEBtll»CEBU2» 

I CFR03»CFRIIA**EXR1» AEXF2»4EXF3#4EXF4»BEXFl»BEXi>2»aEXF3»BEXF4. 

» Cf««‘l»CEXF2tCEX'»3»CfXR4»FUT.FST 

THIS SU4R0UTIRF CONSTRUCTS THE ME U TOW-RAMS ON OERIVATtBE NATRTX ^OR 
ROTW KTNFTtC AHO EBUIIIBRIU* SOLUTIONS ANO SOLVES IT BY PIVOTAL 
GAUSSIAN REDUCTION. WHENEVER TERR IS LESS THAN 1900X* THE REVERSE 
RATF IS CALCULATED FROM THE FORHARO RATE AND EOUIIIBRIUN CONSTANT. 
PROVISION IS FADE FOR GLOBAL REACTIONS 

REFERFNCF CREX INASHINGTQK STATE UNIVERSITYI NARCH 1976 


OTNfNSION A(32>33) 

DATA RI6/46.SS100/ 

DO 10 I»l*Na 

x(n*o.o 

00 10 X-l.NA 
ID Att.KI-C.ODO 

THCPS-1 

IF (IFOUIU IMCPS»2 

IF ITK.lT. 19 CO.OnO» IHCPS -2 

NSl"t 

MS?»NS 

CALL HCPS 

MINaHSIIAOPRGASlNPTKINV 

o«o.ono 

ODRVaQ.OOO 

IF UADIAB) ^0 TO 20 

and ODRV are NnN-DINEHSlQNAL 
TNl«rO/(EFV*RGASt 

0»I ( I04#TX*03»*TK*02I*TX*01*OOPTX1NV|PTNX 

ODRV* I ( I 4.C00PO4PTX A3.0nO*99>ATK42*0OOPO2)PTX*Ol I*TN1 

20 CONTTNUF 


TF UFQUU) GO TO 300 

rhSN<PA*RGASINFTKINV 

ffMDPoRHSNPSNINV 

•HSo-*Hn*pp2 


CHf 

CHI 


lER 1 
TER 1 


NQXX 

22 

CALC 

6 

CALC 

7 

CALC 

8 

CALC 

9 

CALC 

10 

NOXX 

29 

CALC 

12 

NOXX 

24 

NOXX 

29 

4STEP 

346 

NOXX 

27 

CALC 

16 

NOXX 

26 

NOXX 

29 

CALC 

IB 

NOXX 

30 

NOXX 

31 

4STEP 

347 

4STE» 

346 

4STEP 

349 

CALC 

21 

CALC 

2? 

CALC 

23 

CALC 

74 

CALC 

29 

CALC 

»6 

CALC 

27 

CALC 

26 

CALC 

29 

CALC 

30 

CALC 

31 

CALC 

3? 

CALC 

33 

CALC 

34 

CALC 

35 

NOXX 

3? 

CALC 

36 

CALC 

37 

CALC 

36 

CALC 

39 

CALC 

40 

CALC 

41 

NOXX 

33 

NQXX 

34 

CALC 

42 

CALC 

43 

CALC 

44 

CALC 

45 

CALC 

46 

CALC 

47 

CALC 

4B 

CALC 

49 

CALC 

50 

CALC 

51 

CALC 

52 

CALC 

53 

CALC 

54 

CALC 

55 

CALC 

56 

CALC 

57 

CALC 

56 

► CALC 

59 

» CALC 

60 


*' ■*, i /'* .f. I - 

OK PfjOfi (^UALirV 
c 

r •*4iGlQnAL DEACnON*** 

C GinSAL ftATE EQUATIONS FOR HYOROCARftON NrRQtlStS..* 
r GtQNAL rate ERRAFSSinNS DUE TO KHlLRACK... 
r m ri2H23 ♦ 02 — - 9 CZM* ♦ C2HS ♦ 02 

f. <»» C12H23 ♦ OH — 6 C2HA ♦ 0 

C 

IF (U610R.E0«0I 60 TO 110 
IF <TN.LT.9fO.DOI SO TO 110 
no 100 j*i>N6tnn 
I«I0(1|J» 

R>10(2« Jl 

•**IO(A«J) 

N«ID(9»JI 

IF(I.FO«tDFU.ANO.N.EO«IOCH.ANO*l««EO*10H2l60 TO 190 
IF( I. EQ.IOCN*ANO*K«EO. 1002)60 TO 160 
TF(t.EQ.inCG.AN0.K.EO*I0O2)Sn TO 170 
IF(I.E0.tDM2.ANO«ir.EO«IOO2)6O TO 160 
IF(N.E6*I0C0. AND. N.EO. 1042) GO TO 109 
IF(N,EO«tOCO*AND»N,EO.tOH20)60 TO 111 
!F(I*EO.IGCC.ANO.F*EO>ID02)SO TO 121 
Tk1*TACT(J)*TKINV 
TN?*TK1-TEN( J)*UN>OXI J) 

IF (DA6S(Tf2)*GT.6IG) GO TO 100 
R1-0EKF)*TN2) 

C 

0— —provision for CONTACT INDEX 
•1«K1(J)*R1 
Rl*ftl*S2m*RHSO*S2{K) 

RT-Rl *(124(4)41X1-2400) 

RN>R1*2.D0 

r A(ANriN)>A(ANV.N)-0 6ECAUSE NO REVERSE REACTION ASSU4E0 

A(I.I)-A(I*1)*R1 

A(T*K)*A(I»F)4R1 

A(I.NA)«A(I*NA)-R1 

A<r.tl5N|-A(I«NSN)-RN 

A(I»mq)4A( I.N0)«RT 

A(N.t)«*(N4l)-Rl 

a(n.ki-a(n.f)-ri 

A(NtNA)4A(N»NA)4Rl 

A(H.NSN)>A(NtNSN)4RN 

A(N*NO)iiA(N.NQ)-RT 

AN0"9 .DO 

IF (J.EO.D SC TO 101 

A(F>I )-A(H.I)4Rl 

A(K*K)*A(K.K)4R1 

A(«»NA)4AtK»N*)-Rl 

M«tHS(*)«A(H,NSr»)-RM 

A(KtN0)4A(K*N0)4RT 

ANQ«6t00 

loi continue 

Rt4Rl*ANn 

•N4RN*ANr 

rT>*T«ANO 

R(N*t»*A(M. D-Rl 

MN*K)-A(N.K|-*1 

R(«,NA)4AtA*NA)4«l 

A(N*HSN)4(i(»»,N$N)4RN 

A(N.NQ)4*tN.Nfi)-RT 

sn TO !cc 

101 CONTINUE 

r •PPGIORAI RFACTICN*** 

C SlflRAl RATF FOUATIOHS FQR HtDRQCARRQH FYR01TSIS4.4 
C GliRAl rate FXRFSStON OWE TO EOELNAN AND FORTUNE 


CALC 

61 

CALC 

62 

CALC 

6t 

CALC 

66 

CALC 

69 

CALC 

66 

CALC 

67 

CALC 

66 

CALC 

69 

CALC 

70 

CALC 

71 

CALC 

72 

CALC 

76 

CALC 

76 

ASTEP 

990 

ASTER 

391 

ASTER 

992 

ASTEP 

399 

CALC 

79 

40XX 

99 

NQXR 

96 

CALC 

76 

CALC 

77 

CALC 

76 

CALC 

79 

CALC 

60 

CALC 

61 

CALC 

62 

CALC 

69 

CALC 

66 

CALC 

89 

CALC 

96 

CALC 

67 

CALC 

6A 

CALC 

89 

CALC 

90 

CALC 

91 

CALC 

92 

CALC 

99 

CALC 

96 

CALC 

99 

CALC 

96 

CALC 

97 

CALC 

96 

CALC 

99 

CALC 

100 

CALC 

101 

CALC 

102 

CALC 

109 

CALC 

106 

CALC 

109 

CALC 

106 

CALC 

107 

CALC 

106 

CALC 

109 

CALC 

110 

CALC 

in 

CALC 

112 

CALC 

113 

CALC 

116 

CALC 

119 

CALC 

116 

CALC 

117 

CALC 

116 


25S 


c rHKr«(i(/?)P2 K CO ♦ CT/z> h2 

C 

Kr-AUtic»ii 

TKl-T»CTUt*TKlHW 

T*»2«TKl-B)U 

IF(TEN( Jl .wf ,C«*TK2"T*l2-T6HU>*TtN 
tf(DAflSIT!42).(iT*B16tG0 TO 100 
R1*0EKP<-Tf*2l 

C 

r»>— .pROVtSIGB FGR contact INDEX 
Rt-«1( JMPl 

Rl«Rl*CRH 0 P«$ 2 fR)l*DS 0 imRH 0 P*S 2 lin 

TIU*B 1 P 0.9 

A(I*n*Att*l)«TNl 

Aa.R)«A(l»XI*Rl 

A(Ktl)*A{K»n«RlRXC«0*29 

A(K»K)aA(R»K)«TNl*KC 

A(".n-A|Nf tl-TRl*»C 

AIN»RI«AIN»I»)-R1*XC 

A(N.n«An*»n-"i*TH*o.25 

AtN,m-AtN»XJ-TNl*YH 

C_. aUNY»PI-A{ANV»N)>0 BECAUSE NO REVERSE REACTION ASSURED 

RNaRl*l»9 

AdtRSf »»A(I»HSN»-RN 

AIK»NSR»«A(N»NSN>-RNMC*0.9 

AtN*NStn>A(P»NSN|ARN*XC 

ACN»NS")»AIB.NS"dR*»*YHR0.9 

A(t>HAt*A|I*NA)>Rl 

A(R»NAf*A(R»NA|-Rl*KC«0.9 

A(N»NAI«A|R»RA)*R 1 *XC 

A<N»NA |■A<N•NA)»fll*YH«0*9 

TF (.NCT.lNRGt GO TO 100 
RT»»1*1Tx1*TFH(4»-1.9) 

AttpNOI«A( 1 »N 0 URT 
A(K»NOI-A(KtNQI*RT*XC* 0.9 
A(R»N0)-*(F*N0>-RT*XC 
AIN»N 0 )«A<BfN 0 >-RT*YHA 0.9 
RO TO ICO 
111 continue 

C •'••fitOBAl REACTION*** 

C FIOBAL RATE FOUATIONS FOR 2-STEP REACTION. 

C FIRST STEP CXHY*tX/2*Y/Al02 — XCO*<YF2IH20 

C 

vr-ALMic.n 
TH-At I IIM» 1 ♦ 

TKl-TACTt J >*TKINW 
T«>«TKJ-PX ( J1-TFN< J»*UN 
tF(OABS(TP2>.CT,BIG»aO TO 100 
Rl«DFXPI-TN2» 

C 

— rrovtston fcr contact index. 

Rl-XH J»*»l 

R1*R1* tRNOP*S2llO)*OSORT(RKOP*S2<in 
RIAN-Rl 

• MI»n*INUS2m»S2tRMtKC*0.29«YHn 

RT(IRB»CFRUU»*RN0P*PHI*E0XT J 
TF(Rl A",lT«PTU*P»Cn TO 130 
Pl>RTllRn 

FN«».0DC ... 

TFtS2?X»/<TC*C.29*TMl,lT.S2m»6Q TO 111 

RlI-RTIIpj 

RlX-0.0 

r.o TO 13? 


CAiC 

110 

CAIC 

120 

CALC 

121 

NOKKX 

19 

cue 

129 

CALC 

12A 

CALC 

129 

CALC 

120 

CALC 

127 

CALC 

126 

CALC 

121 

CALC 

130 

CALC 

131 

CALC 

132 

CALC 

133 

CALC 

13A 

CALC 

139 

CALC 

136 

CALC 

137 

CALC 

13P 

CALC 

139 

CALC 

lAO 

CALC 

1*1 

CALC 

1A2 

CALC 

1*3 

CALC 

1** 

CALC 

1*9 

CALC 

1*6 

CALC 

1*7 

CALC 

1*6 

CALC 

1*9 

CALC 

190 

CALC 

151 

CALC 

192 

CALC 

153 

CALC 

19* 

CALC 

15 9 

CALC 

196 

NOKX 

37 

NOXX 

38 

NOXX 

19 

NOXX 

*0 

NOXX 

*3 

NOXX 

*2 

NOKX 

*3 

NOXX 

** 

NOXX 

*5 

NOXX 

*6 

NOXX 

*7 

NOXX 

*6 

NOXX 

*9 

NOXX 

90 

NOXX 

91 

NOXX 

92 

NOXX 

93 

NOXX 

9* 

NOXX 

99 

NOXX 

9o 

NQXX 

97 

NQXX 

99 

NOXX 

99 

NOXX 

6C 

NOXX 

61 

NOXX 

6? 


v-'hiL.ii, . 

'>F P" •• 


• > 

1 < 



rt r» o 


c 


X31 OlT-0.0 
RlK-i«TU«e 
GO TO 13? 

130 All ■o*3ro*Ri*f 
A1K««LA*< 

€H-l,3DC 
132 CONTINUE 

t(T*n*3M*nA*it 

*(K»ll«*CK,n*«ll*0.54«KC40.9*T*<> 
A(N»n*«(Nf n-«lt*YH*0*9 


ORIGINAL PAGE IS 
OF POOR QUALITY 


— *A(4NY» **I*A 1 ANYfMl»0 AtCAOSE HO H6YE3SE 
RN«A1*EH 

A(I»N3H)«A<1»NSHI-RN 

A<K»HSH)«ACK»*<SH)-RN*0*9*<*C*0»9*YMI 


REACTION ASSUMED* 


AtH«N3l'l«AU'»NSMl4RN*XC 

AtM,HSHI*A<H*HS"l4RN*YHR0.9 

AfltHAlaAl ItNAl'Rl 

A(R»HA»*A1I«*m»»-R1*0*9*<«C*0*9*YHI 
A«M*MA»«A<R»H*»4P1*XC 
A«H,MAI-A«H»HA>4R1*YK*0.9 
IMtHOTtlHRElCO TO 100 
IMRTURO.IT.RIAMIOO to 100 
RT«Rl*<TRl*TfNf J)-l*9» 
An*MO>«MI»H«l*OT 

A(A»N0l»A(R»H0l4RT*0*9*(KC*0*9*YHl 

A(M*HOi*A<M*HO)*RT*IC 
A <H»NO)«A tM*H0»-RT*TH*0»9 

r.n TO 100 
121 CONTINUE 
♦♦♦ftlMBU REACTION*** 

GLORAl RATE EOUATIONS FOR 2-STEF REACTION. 
SECOND STEF C04«1F?I02 — COE 


tki«tactuj*tkinv 

TM2-TK1-Bm J»-TEN(J»*TLN 
TFIOABSnHIl.CT. 010)60 TO 100 
R1*0EKF|*TN2) 

rrovisicr fcr contact index. 

Ql-VK J)*Rt 

*l>Rl*RHSfi*S2('<)*S2<It 

*IAN«P1 

pman*iNii2.*S2(K).s2nn 
RTURR»CE*U« J)*RHOR*RHI*EnNl J 
TFIRLAN.lt. RTURRJGD TO 1*C 

pi*rturb 

EN«1,0DP 

iF« 2 .*s 2 iN).iT.S 2 nneo to i*i 

Rll-RTURN 

RIK-O.c 

GP TO 1A2 
lAl Rll"0*0 
*1«-RTU»9 
GO TO 1*2 
1*0 RII-RLAN 
R1K*RL*N 
Rl.Rl AN 
FN»?.ono 


NORX 

A3 

NQ«X 

A* 

NQKX 

63 

NOXF 

66 

NQXX 

67 

HOXX 

60 

NOXX 

60 

NOXX 

70 

NOXX 

71 

NOXX 

72 

NOXX 

73 

NOXX 

7* 

NOXX 

79 

NOXX 

76 

NOXX 

77 

NOXX 

70 

NOXX 

76 

NOXX 

80 

NOXX 

n 

NOXX 

92 

NOXX 

83 

HOXX 

8* 

NOXX 

89 

HOXX 

86 

HOXX 

87 

NOXX 

00 

NOXX 

86 

NOXX 

60 

NOXX 

61 

NOXX 

62 

NOXX 

93 

NOXX 

9* 

NOXX 

69 

NOXX 

96 

NOXX 

67 

HOXX 

68 

NOXX 

99 

HOXX 

100 

NOXX 

101 

NOXX 

102 

NOXX 

103 

NOXX 

10* 

HOXX 

109 

NOXX 

106 

NOXX 

107 

NOXX 

100 

NOXX 

106 

NOXX 

110 

HOXX 

111 

HOXX 

112 

NORX 

113 

HOXX 

11* 

NOXX 

119 

HOXX 

116 

NQXX 

117 

HOXX 

11" 

NOXX 

116 

NOXX 

120 

NOXX 

m 

NOXX 

122 

HOXX 

123 

NOXX 

12* 

NOXX 

129 

NOXX 

126 


A 


257 


c 


r. 

c 

c 

c 


CnNTINUF 
AMrf l*A(l 
A(t»K>«A| ! 
A(K*It>An( 
A(KiK)*A(K 
AC**»n<»A(N 
A(n»K)«A(h 
— *"«»AIAH\f»r*»«A 
RN*A 1 *EN 


OhlGifiAl. PAHK IS 
.iiARii Ob POOR QUALITY 

»n« 0 . 9 MU 

*M« 0 . 9 AR 1 K 

»M»RXK 

(ANV»(«)-0 BECAUSE NU REVERSE REACTinN ASSU«IED. 


A(I»NSR|«Air»^SRt>RN 
A<H»N$MaA(R»RSM|>RN« 0*9 
A(« 4 |NSR|>A(n»NSrt}*RN 
A(I»NA)>A(I*NAI-R1 
AIKtNA )>A(K»MA|-R1*0,S 
A('4*NA|*A(H»NA)*R1 
tPt.*»ni,lNReK!0 TO 100 
If='RTURB*lT.»lAn»CO TO 100 
RT-R1*(TR1«TEN(J)-2,0> 

A(T»NQ)oA( t>N0l4RT 
A(K.N0|«A(R»N0)*Rr«0t9 
A(K,NO|aA(H*NOI«»T 
<5J1 TO 100 
I AO CONTINUE 
A*AGlOnAt REACTION*** 

OLOBAL RATE ECUATIOHS FOR 4-STER REACTION, 
FIRST STEF C»Hr — CKHY-24H2 


XC-AltUC*II 

th.auum,i> 

TACT( J)>ER1 
TFN(J|-0.000 
CERUI JI-CEBUl 

AM JI-REXPl 

m-TAcn j»*tfinv 
TN 2 >TKl-nyt Jt*TEN(J»«TLN 
IF<0ARSaF2»,®T.BI6I«0 TO 100 
Rl-f>F*R»-TN*> 


—““OVtSIOK FOR contact TNOER. 

Pl»KltJI*Rl 

P1*P1*MRHCP*S2( IDFUn**AEKPl I*HRHOF*S2(1002 t i*«BEKPl) 

i*nRHOp*s?iiocHn**cE*Pi) 

PIAN*R1 

»Ht-s 2 (n 

PTlHA«CEBUUI**HOR*PHl*EOmj 

IFtPl A*.tT,PTtJRBlGn TO 191 

Pl-PTURB 

EN-l.OOO 

»lt«PTUPR 

*l**.o,0 
RlQ2o0*0 
fin TO 19? 

191 »1I><*F»P1*RLAF 
Rl*>?«AfirFl**lAN 
p 1 a«CFRP 1 *RIAN 


•l*Rl AN 



fnmexpi 

♦ 6 Etfl 4 Cf*Pl 

A(l»It«« 

(If 

n*Rii 

A(t,N)»A 

(If 

P) 4 R 1 * 

Atl.too? 

l-A 

(Ift 002 »*R 102 

A(*",n«A 

(>*, 

n-»ii 

a<*,n)»a 

(Pf 

P»-R 1 * 

A'NjTOO? 

1 "A 

tFfinp?)-Rio* 

A<«,I».A 

Iff 

n-pii 


NDXX 

127 

NOXX 

12" 

NOXX 

12R 

NQXX 

130 

NOXX 

131 

NOXX 

132 

NOXX 

133 

NOXX 

134 

NOXX 

139 

NOXX 

13" 

NOXX 

137 

NOXX 

136 

NOXX 

139 

NOXX 

140 

NOXX 

141 

NOXX 

142 

NOXX 

143 

NOXX 

144 

NOXX 

149 

NOXX 

146 

NOXX 

147 

4STEF 

394 

ASTEP 

399 

4STEP 

396 

4STEP 

397 

4STER 

39e 

4STEP 

399 

4STEP 

34C 

4STEP 

361 

4STEP 

362 

4STEP 

363 

4STEP 

364 

4STEP 

369 

4STEP 

366 

4STEP 

*6 7 

4STEP 

36" 

4STEP 

369 

4STEP 

3T0 

4STEP 

371 

4STEP 

372 

4STEP 

373 

4STCP 

3T4 

45T6P 

379 

4STEP 

376 

4STE* 

377 

4STEP 

37" 

4STiP 

379 

4STEP 

36C 

4STEP 

361 

4STFP 

3B2 

4STE® 

3"3 

4STEP 

3"4 

4STEP 

3"9 

4STEP 

3B6 

4STEP 

187 

4STEP 

39" 

4ST£P 

38 9 

4STfP 

39C 

4STFP 

391 

4STF» 

39Z 

4STE* 

393 

ASTIP 

394 

4STPP 

39» 

4STfP 

396 


• 



AtN»N|«A(N*Nt»l»lN 

V " ’ - A 

ASTEP 

397 


AIN»|nC2l*ACN»IDOZt~Rin2 


ASTEP 

391 


RN-R14FN 


ASTER 

199 


A(I»NSM>A(1»NSN)-RN 


ASTEP 

AOO 


A(N»NSN|-A(f‘»NSH)4RN 


ASTEP 

AOl 


A(N«NSN>-A<N»NSH|«RN 


ASTER 

A02 


An>MA)-AII*NAl-Rl 


ASTEP 

AOl 


A(N*NA»«A(P*NA|4R1 


ASTEP 

AOA 


A(H»NA)*A(N*NA)«R1 


ASTER 

AOS 


IFI.NOT.LNRCieO TO 100 


ASTEP 

AOO 


IF(ATURfl.LT*RLANIfin TO 100 


ASTEP 

AOT 


RT-Rl«tTNl4TFN(J»-CNI 


ASTEP 

Aoa 


An*N0)>AniNG)4RT 


ASTEP 

A09 


A(N*NO>>A(N*NQ)-RT 


ASTEP 

AlO 


A(N»N0)*A4N*NQ1-RT 


ASTEP 

All 


on TO 100 


ASTEP 

A12 


lAO CORTTHUf 


ASTEP 

A13 

c 

444G10BAL RFACTICN*** 


ASTEP 

AlA 

c 

GLOBAL RATF FOUATIONS FOR A-STEP 

REACTION. 

ASTEP 

A19 

c 

SECONO STEP CXHY-24(X/2)02 — 

XC04MY-2I/21H2 

ASTEP 

AlO 

c 



ASTER 

A17 


XC*ALULCtIDFUI 


ASTER 

Ale 


YH»Al<UH»IOFUI 


ASTEP 

A19 


VCYH*XC4C.2500P(TNo2.0001 


ASTEP 

A20 


TACTIJ)>FR2 


ASTEP 

A21 


TENUI«0.€00 


ASTEP 

A22 


CERtM JI-CFBU2 


ASTER 

A23 


»XtJ)*PEXP2 


ASTEP 

A2A 


TKl-TACTI JKTRINV 


ASTEP 

A29 


TN2-TK1-RX(JI-TEN(J)*TLN 


ASTEP 

A2A 


IF(DABS(TN2)«6T«RtG)GD TO 100 


ASTEP 

A27 


R1»0EXP<-TN2» 


ASTEP 

A2B 

r 



ASTEP 

A29 

C— ~-»ROVlStflN FOR CONTACT INOCX. 


ASTEP 

A30 


Rl>Xl(Jt4Pl 


ASTEP 

A31 


Rl«Rl*llRHQP«S7(T0CHn**AEXP2IPnRHOPPS2(lD02n«4REXP2t 

ASTER 

A32 


l*((RHnp4S2(IDFU)4l.0-S0l*«CEXP2l 

ASTEP 

A33 


RLAN-Rl 


ASTEP 

AlA 


MT-0HTNl(S2(I0CH)*S2n002WXCYNt 

ASTER 

A39 


RrURB-CEBUU>*RHOP«pM|4EOKU 


ASTEP 

A36 


IFtRLAN.LT.RTURBIGO TO 161 


ASTEP 

A37 


R1«*T»RB 


ASTER 

A3B 


RlFU-0.0 


ASTEP 

A39 


EN-l.ODO 


ASTEP 

AAO 


TF(S2(tOC2>FXCTH.LT.S2UOCH))6Q TO 162 

ASTEP 

AAl 


RII-RTORF 


ASTEP 

AA2 


RlK-0.0 


ASTER 

AA3 


GO TO 163 


ASTEP 

AAA 


162 RlfaO.O 


ASTEP 

AAS 


RlKaRTURB 


ASTEP 

AAO 


GO TO 163 


ASTER 

AA7 


161 R1I«AFXP24RLAR 


ASTER 

AAB 


R1K#(IEXP2*RLAN 


ASTEP 

AAO 


•1FU-CFXP24RLAN 


ASTER 

ASe 


Rl-RLAR 


ASTER 

A91 


EN«AEXP24FEXP24CEXP2 


ASTEP 

A92 


163 A(T»T)-An*n4RlT 


ASTER 

A93 


A(T>RI*A(1»K|4R1K 


ASTER 

ASA 


Att.lOfm«A»l»IOFU)4(llFU 


ASTIR 

A99 


A(Kin-A(K»n4Rit«o.9no*xc 


ASTEP 

A96 


A(KtK)>«(R*K)4RlF«0.900*XC 


ASTER 

A97 


At«»II>FO)*A(K»IDFUl4RlFU40.900RXC 

ASTER 

A9B 


AfR,tl»A(P»n-Rlf4XC 


ASTEP 

A99 


»»AtPfFt-RlK4XC 


ASTIR 

AOO 


259 


A|M,t l•A<l>'*II-K^*CVH>2.000l*0.9DO 
A(N»K to AtHtHi-RlKAX VH-Z. 0001*0.900 
AIM,tnfUtoA|NitnFU)-*l*U*<»H-2.000»*0,9l>0 

AI|fNSnoA(IfNSH|-RN 

A«KiNSfl»A<K*f*SH)-AN*0.900*KC 

Af**M9*)*A(Pt*SMt«RM*1(C 

A <N»NSH)oA<MfNSn>«RN*(rH-2. 0001*0. 900 

A<I»MA)>AtX«NAI-Al 

A(«.MAI*A(*.t<At-Rl*0.900*XC 

A«»t*NAI»A«l<»HA»*l»l*XC 

A(NtNA)oA(H»NA)«*l*(VM-2«000)*0.900 

rFi.MnT.(.N*€)ca to loo 

IFXRTIJPB.tT.PlAlltCO TO 100 

rTo* 1«(TK1«TFNC JI-FNt 

*(tiNai«A(l.hO)*RT 

A(KtNe)«A(K*N0t*RT*O.9D0*XC 

Att.NOtoAIFttiOt'RTAKC 

A(N,M0)oA<N.N<}I-RT*{VH»2.0D0)*0*900 

on rn loc 

170 cohtimuf 

C ***r,iORAl PFArtlCH*** 

C fiLORAL RATF EQUATIONS FOR A-STFP REACTION. 

C TMIRO STEF CC*<l/2J0Z — C02 
C 

TACTt J>*ER3 

TFN(J)>0.000 

eFnUU)*CERU3 

A*Ut«RI*R3 

TKl-TACT«Jt*TFIMV 

TNZ»Tia-BF<J»-TSMJt*TtN 

tFIOARSITNZI.CT.BIOtOQ TO 100 

RI-OEXM-TRZ) 


Ut: 


I 1 . 




OF POOU quauty 


PROVISION FOR CONTACT INOE*. 

Rl><KJt*Rl 

SSS»7.R30O*CE*R<“2.A800*FUT*<l»00O-FS?»/IFST*Cl.C00»fWTH» 

SSS-0«tNU1.00C»SSS) _ 

R1«R1*« tRM0R*S2<IDCO» l•*AEXP^^•^RMOP•S^^IDa^) l**REXPSI 
l«((RH(]P«S?<IOHZOn**CFXP3)*SSS 
R| AN-Rl 

PHt«nMINl(2.000*S2(K(.S2(I)l 

RTORR«CF«U< JIARHO^PPHTAEONIJ 

Te(*tAi*.t,T.RTU*R»(!0 TO 171 

«1*»T«IBA 

P1M20«C.O 

FN-l.OPC 

TF(2.000*S2(K).LT.S2m too TO 172 

»lI«RTUPfl 

RIN-O.C 

on rn 173 

177 »tl«0.0 

RIN.RTUPA 
on TO 173 

171 »ll*Af XP3*PIAN 
•lX-AfXP3*RlAN 
• *»i*Pi AN 

Rl»Rl A" 

fN.AFXR3*NEXR3FrcxP3 
171 Ad.l t«AM.n+Sll 
A;T.Ki-An.p»*Pi« 

AU.tOH2Pt-An»inH2ni*RlH2n 
A4K.tt.A(K.n*Pl 1*0.900 


9STEP 

A61 

ASTEP 

AA2 

ASTER 

AA3 

ASTEP 

AAA 

ASTER 

AA9 

ASTER 

AAA 

ASTEP 

AA7 

ASTEP 

AAA 

ASTEP 

AA9 

ASTER 

A70 

ASTFR 

ATI 

ASTER 

ATE 

ASTIR 

A73 

ASTEP 

A7A 

ASTEP 

A79 

ASTFR 

ATA 

ASTER 

ATT 

ASTEP 

ATA 

ASTER 

ATP 

ASTEP 

AAO 

ASTEP 

AAl 

ASTEP 

A82 

ASTEP 

AA3 

ASTEP 

AA* 

ASTER 

AA9 

ASTEP 

AAA 

ASTEP 

AST 

ASTER 

AAA 

ASTER 

AB9 

ASTER 

AAO 

ASTER 

A91 

ASTEP 

A92 

ASTER 

A93 

ASTEP 

A9A 

ASTEP 

A95 

ASTFR 

A9A 

ASTEP 

A97 

ASTFR 

ASA 

ASTE* 

A99 

ASTEP 

900 

ASTEP 

901 

ASTEP 

902 

ASTER 

903 

aster 

90 A 

ASTER 

905 

ASTEP 

90 A 

ASTEP 

907 

ASTEP 

909 

ASTER 

909 

ASTER 

910 

aster 

511 

ASTEP 

512 

ASTEP 

513 

ASTER 

91A 

ASTER 

919 

ASTER 

91A 

ASTE* 

917 

ASTS» 

91P 

ASTfP 

919 

ASTER 

920 

ASTfP 

9?1 

ASTER 

52? 

ASTER 

923 

ASTF* 

5?A 


V’,60 


«(K»K)-A(K»K)4»1K*O.SOO • 

' . (* i 1 i ■ i !' ' v' 

4STEF 

929 

A(«(»nUi20l-ACK»IOH?OI^RlH2O*l|.9OO 


4STFP 

926 



9STEP 

927 

AltfKI-AIHtRI-tlN 


9STFP 

929 

A(<*tIt)H2Ct>'ACAt!0H2nt"lllH2a 


49TEP 

929 

RH«IU*EN 


ASTEP 

930 

*(I(N5A)>A(t»MSIt>-ftN 


ASTEP 

991 

A(K»NSK)-AIK*nsn)»RN«0.9DO 


ASTEP 

932 

A«'«*NSM)iiA(*'»WSH»*RN 


A9TEP 

933 

A(f •NA>*A(I>HA»»R1 


ASTEP 

93A 

A(KtN*)»A«RiNAI-»l«0.900 


ASTER 

939 

At1*NAMA(H»NA>*91 


ASTEP 

936 

IF(«NOT.INR«)CO TO 100 


ASTEP 

937 

IF(2TUtt»*lT.HAH)C0 TO 100 


ASTIR 

938 

RT*»t*(TKl«TENI J)*>EN) 


ASTEP 

939 

A<t<NO)>A(r»NO)«f»T 


ASTEP 

9A0 

A(K»N9)>A(K*NC|f«T*0.900 


ASTEP 

9A1 

A(H*NO)>A<n*NO)-RT 


ASTEP 

9A2 

60 TO ICO 


ASTEP 

9A3 

1#0 CONTINlIF 


ASTER 

9AA 

•••f.innAl REACTION*** 


ASTEP 

9A9 

6L0AAL RATE EOUATIONS FOR 4-STE* REACTIOHi 


ASTEP 

9A6 

«nU*TM STFP H24(l/2)02 — N2U 


ASTEP 

5A7 



ASTEP 

9A8 

TACT(4)«EBA 


ASTEP 

9A9 

TENUI-O.OnC 


ASTEP 

990 

CERUU)*C€BUA 


ASTEP 

991 

rxui-fekfa 


ASTEP 

992 

TK1»TACT( JI*TF1HV 


ASTEP 

993 

Tn?»TK1-RX( J)-TEN<J»*TLN 


ASTEP 

99A 

IFfOARS(TN2l.6T.ftI6lGO TO 100 


ASTEP 

999 

Rl»0e»F(-TF2» 


ASTEP 

996 



ASTEP 

997 

RRnviSION FCR CONTACT INOFX. 


ASTE* 

998 

Rl-XK JI*R1 


ASTEP 

999 

Rl*Rl*HRH0P*S2nnH2n**AEKPA)*(<RHOR*S2(10()2»>**ftEXFA) 

ASTEP 

580 

1*((RHOR*S2I10CH>*1,0-30)**CEXPA> 


ASTEP 

961 

R| AN-Rl 


ASTEP 

962 

PHT>ONtNl(2.000*S2(Kt.S2(in 


ASTER 

963 

PTII9R«CFBU( J»*RHtP*PHI*fOKI4 


ASTEP 

96A 

IF(RLAP.LT.PTUR9»G0 to 191 


ASTEP 

969 

Bl-RTWRR 


ASTEP 

966 

R1CH«0.C 


ASTER 

967 

FN«1.000 


ASTEP 

968 

IF(2.000*S2(K).LT.S2m»00 TO 192 


ASTEP 

969 

Rl!«RTliRR 


ASTER 

970 

RlK.0.0 


ASTER 

971 

00 TO 183 


ASTEP 

972 

182 *11-0.0 


ASTER 

973 

RIK-RTURR 


ASTEP 

97A 

60 TO 183 


ASTEP 

979 

191 »lT-*6XP4*Rl*r 


ASTIR 

976 

R1R-9E«PA*RIAN 


ASTEP 

977 

P1CH-CEKPA*RLAN 


ASTEP 

978 

EN-*EXPA«eFXPA«CEX9* 


ASTIR 

9 79 

183 A<t.n*Af T.tMRlI 


ASTFP 

980 

AIT.KI-ATl.RlARlK 


ASTEP 

981 

AM»tncH»-An*iorH)*RicH 


ASTFP 

982 

A(N.n*A<N»n«Rii*o.9oc 


ASTEP 

983 

A(R»N)-A<K.RMR1R*0.900 


ASTEP 

98A 

A(<(*tDCHt-Ant»IDCN|*RlCH*0.9l)0 


ASTER 

989 

A(N»II-Atn»n-Rll 


ASTER 

986 

*I*»K1-A«9»9T”»1« 


ASTIR 

98T 

A««*TOCH)-AI9»IOCH|-R1CH 


ASTIR 

988 


7.61 



«(R,NAtoAM«*NA)««l 

IF( tNnTtl.N*fi>Gfl TO 100 

lFIRTUm«lT.PtAO>60 TO 100 

iT«Rl*nKl*TfHUI-tN» 

AtI»Nai>/ilI»N«)«RT 

ACR,HOI-MR#HOI*RT*0.900 

»CN»N0»«<U>'»H0»-«T 

too CORTIHUC 
110 CONTlHUf 

IF(HBL0«F»GT»JJ)60 to tTl 


ORlGItlAL 

OF POOR QUALITY 


no *70 J«R6I.OO**v*J 


r 

c*t 

c** 

c 

c 

c 

c 

c 

c 

c 

c 

f 


«• «* 
*• •* 


«• 

•• 


•• 

** 


•• 


** 

•* 




*• •* 

•• •» 


CHAPTER 2 
CHAPTE* 2 


** 

• • 


•• 

•• 


«P 

•P 


♦••REACTION RATES*** .„o R2 
CAlCULATP FORNARO ANO REVERSE RATES R1 AND RZ 
THREE TV*ES PE REACTIONS 


MOOR 1 

•OOR * 
HOOR ? 


• •• 
• •• 
« • ft 


A ♦ 0 <*C» — 0 * 6 t*E» 

AB ♦ P A ♦ B ♦ N 

A A B * H — " AB ♦ N 


I>fO(l»Jt 

Ka|0(*f 

HK«TD(S»J) 

••TD(A»JI 

N-tO<SiJ» 

NN>tni6»it 
*QOE*NOORI A) 

Rt-0.000 

R*«0.000 

thi*o*cdo 

TRRaOaOOO 

RN*0*000 

RT-O.ono 

•lT-0,0 

R1H«0*0 

RlKK-O.O 

R2H-0.0 

R2N-0.0 

RZNN«0*0 

T«1»TACT« JI*TRTHV 

Inf. 0.001 TN*»TR2-TFNCi1*TlN 
tP |0ARS<TR21.6T.RIfi1 60 TO *09 
«I«DERP<-TN2) 

^^••AnviRICN FTR CONTACT INDE* 

ei.RiAVlU) 

tF |H0t)F-2 1 200. *01. *0* 

*00 Rl«Rl*S2in*i»HS0*5*«N1 
R( A"*R1 

PMt«nHlNtis2<KI.S2(ni 
RtHRfl.CFNlH J1*RMnP**HX*E0K| A 


ASTER 

9B<) 

ASTER 

990 

ASTER 

991 

ASTER 

992 

ASTER 

99S 

ASTER 

99A 

ASTER 

999 

ASTER 

996 

ASTER 

99T 

ASTER 

990 

ASTER 

999 

ASTER 

600 

ASTER 

601 

CALC 

197 

CALC 

19a 

CALC 

199 

ASTER 

602 

CALC 

160 

CALC 

161 

CALC 

162 

CALC 

163 

CALC 

164 

CAiC 

169 

CALC 

166 

CAIC 

167 

CALC 

16B 

CALC 

169 

CALC 

170 

CALC 

171 

CALC 

172 

CAiC 

173 

CALC 

174 

CALC 

179 

CALC 

176 

CALC 

177 

CALC 

17B 

CALC 

179 

CALC 

IRO 

CALC 

lai 

CALC 

192 

CALC 

193 

CALC 

18* 

CALC 

185 

CALC 

186 

CALC 

367 

NOXX 

1>8 

NOXX 

1*9 

NOXX 

190 

NOXX 

191 

NOXX 

192 

NOXX 

193 

CALC 

169 

CAIC 

199 

CALC 

190 

CALC 

191 

CALC 

192 

CALC 

193 

CALC 

19* 

CALC 

1*9 

CALC 

196 

CALC 

197 

NOXX 

19* 

NOXX 

199 

NOXX 

196 
















IFt»L*r<.LTtllTURa)Cn TO 291 

ai-»TtlFP 

FN-l.OnO 

rFIS 2 (|(»,LT.S 2 imG 0 TO 292 

mi« 9 TUfta 

Flw-O.O 

cn TO 29 » 

90 ? FllxOtO 
*1*-0TUR9 

an TO 29 ? 

»91 OIT-OIRB 
• 1 K«RIL*« 

•l-RLAO 
FN* 2 tOPO 
29} CONTtNUF 

IFCKK.fO.OI GO TO 290 

«UO"RI* 09 *HOF*S 2 («K) 

FHI«0**IHHPHI»S?(KKn 

RniR9-CE9U( JiORHOPOPHIoeOKlJ 

IF( 91 AH»IT.FTUPB)G (1 TO 294 

FN- 1.000 

01 «RTUPR 

IF(S7(K).lT.S2m)G0 TO 299 
IO(^2m,LT«S2IKK>tG0 TO 296 
r,0 TO 29B 

299 IFiS 2 (F»,LT«S 2 (RRn 6 a TO 297 
? 0 R R 1 KK>RTURB 
« 1 K> 0.0 
•ll-OtO 
GO TO 299 
297 RJK«RTORft 
RlKHaO.O 
RIIO.C 
GO TO 299 
29 ^ Rlt*RTURF 
RlK- 0.0 
RlHKaO.O 
GO TO 299 
299 Rtl-RLAI* 

R1K*«LAP 

RiRK-RtA" 

RlaRLAN 

EN >}.000 

299 CONTIMOF 
290 RN*R1#pn 

tFf.NOT.LNRGIGO TQ 209 
!F<RTMRB.LT,RlAP>PO TO 209 
h i-*l*(TEN( Jt«TKl-EN» 

GO TO 205 

201 Rl<» 19 RHSO*RH 0 P«$ 2 m 
RlAiiaRl 

PHI«S2(T> 

0THPB-CF9UC Jt*«HOP*PHt9EOKIJ 
RlI*notNHRLAPrRTURB) 

« 1 »R 1 T 

RH«R1 

tF(«NOT*lNRGtfiO TO 209 
IFrRTttRR.lT.RlANIfiO TO 209 
RraPl«(TFN{J|*TKl» 2 , 0 D 0 t 

GO TO 209 

202 Rl»Hl*PMS 0 *S 2 m*RHS 0 *S 2 IK» 
•IA 9 -R 1 


OWGIfM'. iv.c- j; 
OF POOR quality 


NOR It 

197 

NQXR 

19 R 

NOXX 

199 

NOXX 

160 

MOXX 

161 

NOXX 

162 

NOXX 

161 

NOXX 

164 

NOXX 

169 

NOXX 

166 

NQXK 

167 

NOXX 

166 

NOKX 

169 

CALC 

196 

NOXX 

170 

CALC 

199 

NOXX 

171 

NOXX 

172 

NOXX 

173 

NOXX 

1 T 4 

NOXX 

179 

NOXX 

17 t 

NOXX 

177 

NOXX 

17 B 

NOXX 

179 

NOXX 

100 

NOXX 

191 

NOXX 

102 

NOXX 

163 

NOXX 

104 

NOKX 

109 

NOXX 

106 

NOXX 

107 

NOXX 

196 

NOXX 

169 

NOXX 

190 

NOXX 

191 

NOXX 

192 

NOXX 

193 

NOXX 

194 

NOXX 

199 

NOXX 

196 

NOXX 

197 

NOXX 

199 

CALC 

202 

NOXX 

199 

NOXX 

200 

NOXX 

201 

CALC 

204 

CALC 

209 

CALC 

206 

NOXX 

202 

NOXX 

203 

NOXX 

204 

NOKX 

209 

NOXX 

206 

CALC 

207 

NOKX 

207 

NOXX 

200 

NOXX 

209 

CALC 

209 

CALC 

210 

CALC 

211 

NOXX 

210 


o o ^ 


PHl-nHlNllSZlKWSIllM 

«TII»"-CI(»U< J>*!*HOr*PHI*EORIJ r; 

IF(»l,*^.lT.*»TU*»«KO TO 301 / ■ ; ‘ 1 y 

n-BTiiP# pc f,. : *•.'» If 

FN.i.ono ^ 

tF«S?»K».l T.S?nn80 TO 10* 

tl)(>0.0 
f,n TO 301 

10* »u»o*o 

RlKndTUR* 

r,n rn loi 

101 

EN»2.0PO 
101 rnHTtNUE 
RN«(»1*EH 

1F( .NOT.LNOOtGO TQ 209 
IE(ftTO«K.lT.ia«niOO ro 209 
«T-»l*nihUWT(f 1-3. 0001 

*01 


CALCUtlTE OEWERSE RATE CONST FR3N FNl) RATE CONST AhO EOUIt CONST 

-_.MMENfVER TERR tS LESS THAN 1900 •> 

IF (TN.fiT.1500.OOOI 60 TO 220 

HH.HOdl-HOIRI 

is-so(n-so(R* 

IF (N0nF-2> 210f*ll»212 
710 MH.HHAHC(K)-H0(N) 

1$»SS*S0(«»-S0(M» 

IFCKK.FO.OI fiO TO 21S 
MU.)4H4H0(KICt 
SS-SS*SO(NR) 

*11 |F(NN.EQ.Ot GO TO 214 
MN*HH-M0(NN ) 

SS-SS-SO(NN» 

>10 CONTINUE 

nvil.R* ( J)4SS 
TKJ.TNl+HH 
TN*"TFN(J1 
fid TO 230 

>11 HH*HH-HO(Nl 
SS-$S-SO(N> 

-*.100301 IS E-tOG OF GAS CONST 0.00206 N*R3"ATR/NfiN0L”0EG N. 
1K«*1X( JI4SS-2.10030A00 
TK*«TN14HH 
TN>*TFMJI*1.C()0 
on TO 230 

>1? MH-KH.HOdI 
SS»SS4S0(t(l 

1»«»1M JI ♦SS42.9OO1OAO0 
TK?*Tk1*HH 
rN>.TEN4JI"1.000 
00 TO 230 

tm»nx2(4l 

2f>4 


NOIR 

NDIX 

NOFX 

NORK 

NOW 

NOFR 

NORX 

NOXX 

NOXX 

NOXX 

N03X 

NOXX 

NOXX 

NOXX 

NOXX 

MfJXX 

NOXX 

NOXX 

NOXX 

NOXX 

NOXX 

CALC 

CA( ' 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALf 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 

CALC 


211 

*12 

213 
21A 
*11 
216 
?1T 
216 
*19 
220 
221 
222 
221 
22A 
2*5 
2*6 
2*7 
*21 
2*4 

230 

231 

214 
211 
216 
217 
21" 

219 

220 
221 
222 

223 
?2A 
2r:5 
2?ft 
2*7 
221 

224 

230 

231 

232 

233 

234 
233 

236 

237 
239 

239 

240 

241 

242 

243 
2<»4 

245 

246 

247 
241 
249 
*10 
211 
21* 
213 
*1A 
*11 
211 


. I . -i : .1 

T«>-TACT*ijt*it«inw OF POOR CUA ITY 

TN?*TFK7(J) ^ ~ 

c 

>10 Tf2«TK?-«IIX 

IF (TN?.Nf .O.DOl Tli2-T«2-TM2*nN 
If ( 0 *aS(Tt* 2 ).fiT.ai 6 | 6Q TO 290 
«?»Oe«M-TF?» 

C^^^^nuiTIFlV HOFQCFNFQUS OATi CONSTANT IT CONTACT INDEX 
A?«A2*K?U> 

r 

IP (N00E>2) 2AOt2Al»2A2 

C 

2' 0 A2<A2«$2IN»*ANS0AS2(N) 

01 AH>A2 

»HT>ON|NH$2(FI*52(Nn 
RTU0A-CFAUI J)*RHOP*»Ht*EDKl J 
IFinLAN.lT.PTURBtGO TO 311 
R2**rUPF 
FN«1.0DC 

TF(S2(N)*lT.S2(NHGQ TO 312 

R>N-0TUPn 

02M-O.O 

GO TO 313 

312 I2N-0.C 

• 2<**RTURR 
60 TO 313 
311 P2N-RIAN 
»2«*«»LAP 
H2-RLAF 
FN-2.000 

313 CONTINtlF 
IF(NN*EO«Ot GO TO 249 
0ltM.ftLiN*0HOF*S2(NNi 
PHI^ONINUFHNSEfNMn 
RTI>ftA«CEAU C J l•(lH0P•PH14EDKt J 
TF(PLAP,lT.PTUPei«n TO 314 
R2*0TUPe 

FN«1.0DO 

TF(S2(N».lT.S2(Nt)GO TO 313 
TF(S2(N>.IT.S2(NM»G0 to 316 
GO Tf’ 318 

319 If ($2(Nt*lT.S2INNMG0 TO 31T 
3)1 R2NN-RTUR8 
R2M*0.0 

R3N>0 ,0 
GO TO 319 
317 R21-RT0PA 
»2NN«0,C 
«7M.0,0 
GO TO 319 

314 P>N«PT0PP 
»2NN-n,0 
R2M«0.0 
GO TO 319 

314 R2NIRIAP 
R2'*«RIAP 

P2*9L IP 
FPol.OOO 
319 rONTTHUF 
>43 »n«RN-*2*FN 

IFI.NOT.lHPGIGO TC 290 
IftRTUPPfiT.PLANIGQ TO 290 
pt-»T-»p2*»TN2*TP2-FN' 


CALC 

297 

CALC 

298 

CALC 

299 

CALC 

260 

CALC 

261 

CALC 

262 

CALC 

263 

CALC 

264 

CALC 

269 

CALC 

264 

CALC 

267 

CALC 

265 

CALC 

269 

Nnxx 

232 

NOXK 

233 

NOXK 

234 

NOXK 

239 

NOXX 

236 

NOKX 

237 

NOXX 

238 

NOXX 

239 

NOXX 

240 

NOXK 

241 

NOXX 

242 

NOXK 

243 

NOXX 

244 

NOKX 

249 

NOXX 

246 

NOXX 

247 

CALC 

270 

NOXX 

248 

CALC 

271 

NOXX 

249 

NOXX 

290 

NOXX 

291 

NOKX 

292 

NOXX 

293 

NOXX 

296 

NOXX 

299 

NOXX 

296 

NOXX 

297 

NOXX 

296 

NOXX 

299 

NOXK 

260 

NQXX 

261 

NOXX 

262 

NOXX 

263 

NOXX 

264 

NOXX 

269 

NOXX 

266 

NQXX 

267 

NOXX 

268 

NOXX 

269 

NQXX 

270 

NOXX 

271 

NOKX 

272 

NQXX 

273 

NOXX 

274 

NOXX 

279 

NOXK 

276 

CALC 

2’4 

NOKX 

?T7 

snxx 

278 

NOXX 

>79 


264 


GO TO 290 


ORlGaivAl PACE 10 
OF POOR QUALITY 


741 •2-l»2*RHSn«S2IM)«ffHSa4S2(H> 

•lAH-R? 

l>Mi<.nHiNnS2(PWS2(Nn 
RTiJftAxCfnUI J)«RH0MRH|REPRt4 
IFCRlAR.lT.RTURMGn TO 321 
Rf-RTURB 
BN-1.000 

TFtBEIBI.LT.SZINIIGO TO 122 

R2B>RTURB 

»2"-0.0 

GO TO 323 

322 R2RO.O 
rrh.rTURB 
GO TO 323 

121 RZM-RtAR 
R2R-RLAR 
ft2«Rt*H 
PNa2«0D0 

323 CnNTINUF 
»N-RN-R2*FN 

TFI .Nnr.LNRGlGO TO 290 
TF(RTURe.lT,Rt*N»6Q TO 290 
RT-Rr-R2*(TN2«TR2-3*ODO) 

GO TO 290 
C 

?*2 R2*R2*RHSH«RHOP*S2(N> 

Rt*B»*2 

RH!-32|R» 

RTURR-CfBUt JlRRHORRRHtREOKIA 

R7N«nNtNt(RlAN.RTURBI 

R?«R2*» 

»N*RN-R2 

TF< .NOr.LHRGlGO TD 290 
IF<RTIlRe.LT.RLARIGO TO 290 
RT«RT»R2*»TB2*TK2-2iOOO> 

C 

290 T11-TB1-R2 

C 

f 

C •••KIMFTIC*** 

C OFRlWiTlve *N0 FUNCTION N4TRIT FOR KINETIC SOLUTION 
C 

»n.i i-*«i»n*Rii 
A(N,1I.aIB»I)-»ii 
A(T»h)«R(I»R)-R2R 

*(N»N)«*(r*R)4R2« 

*IIfNSR)*«(I,NlB|-RN 

AIN.N$»t«A(R»N3R)4RN 

An^NO)**! i*nq» 4RT 
A(N,NO).A(P,NOt.RT 
*(t«NA|-A(I»NA)-TMl 
A(H,NA)aA(P»NAt«TMl 
IF ("OOl.Ftl.SI 60 TO 260 
C 

AtN, M«A(NtTt>Rlt 

A(N»X|*R(N*R)4R2R 

A(T,N|*AM»R»-R2N 

A4R|NI*AIR»n)4»2N 

A(n,mi.a(n,nmR2n 

A(N»NKR|«A||i«R3R)4RN 

A(NtNO)*A<N.Ng»-RT 

4IN,tlAt>A(NtNAi«|H) 


CALC 

276 

CALC 

277 

CALC 

278 

NOKX 

280 

NOFF 

281 

NOXK 

282 

NQRX 

283 

NOFX 

28* 

NOXX 

269 

NDXX 

296 

NOXX 

2B7 

NQXX 

268 

NOXX 

269 

NOXX 

290 

NOXX 

291 

NOXX 

292 

NOXX 

293 

NOXX 

29* 

NOXX 

299 

NOXX 

296 

NOXX 

297 

NOXX 

298 

NOXX 

299 

NOXX 

300 

NOXX 

301 

CALC 

281 

CALC 

282 

CALC 

283 

NOXX 

302 

NOXX 

303 

MOXX 

30* 

NOXX 

309 

NOXX 

306 

CALC 

28* 

NOXX 

307 

NQXX 

306 

NOXX 

309 

CALC 

286 

CALC 

287 

CALC 

288 

CALC 

289 

CALC 

290 

CALC 

291 

CALC 

29? 

NOXX 

310 

NOXX 

311 

NOXX 

312 

NOXX 

313 

CALC 

297 

CALC 

298 

CALC 

299 

CALC 

300 

CALC 

301 

CALC 

302 

CALC 

303 

CALC 

30* 

NOXX 

31* 

NOXX 

319 

NOXX 

116 

NOXX 

317 

NOXX 

318 

CALC 

no 

CALC 

311 

CALC 

312 


up puow V 


IF ma0C.E0.2t 60 TO 279 

c 

200 COMTINUC 

At«>I |-A(K»U*2ll 

Anmi-2«imt*»n« 

A(K»Kt-A(KpKt«01K 

A(M*R)-AmtRt-22K 
A(K*Nt«A<K»Kt-02a 
AIK*HSai»AIR»HSItl-"H 
At*«»N0)"An«»«0tA0T 
AIH>NAI-AIK*N«t-7»*l 
IE mn0E.C0.3t 60 to 2T0 
r 

A(HtRt«Am*K|oRlK 

AIR»Nt«A(K*N|«R2N 

iriRR.EO.Ot 6C TO 269 

AntEEt-AIl.KEtmiKK 

A(lI»KRt-Am»KEtARtKK 

A(RRtTt*A|RR.tt«RJlI 

A(KK*Kt*A(KK.Kt»RlK 

ilRR.RRI-AmR.RKtAtlRR 

AfM.KRl.AlR.RRt-PlKK 

ACHfRK)>Am.KRt-RlKK 

A(RR*t«t«A(RR.M»02a 

A(RR.Nt"AmK.N|-02N 

AlRK»NS«t»Amt<»NSft-RM 

A(«f»Nat-AlKK.HOI«RT 

AIRR.riAt«A(RR.RA t-mi 

•oa IMNN.CO.Ot 60 TO 260 
ACt.*i**»«AUmHI-R2NH 
A(R»NN)«A(R»NNI«R2NN 
AtNN*lt*A(NN*It-RlI 
AmN*Kt-AmN.Kt-*tK 
A mtNN)>Amm6tAR2NN 
Am.HN).Am»NNt*R2HN 

AiHHmi-AmHmi+^ER 
AmM.NI-AmN.NtARfN 
A(NN«NRt*A(N6'.NNI»R2NN 
AION.MSRI-AmN.MSRmRN 
A(WN.NOt*AtNN*KOt«RT 
A(NN«*JAI*AmN.NAt*mi 
200 rQHTTNUC 

c 

270 CnNTlNUF 


271 COWTTRUE 
MSURaO.ODO 

OP 200 i-xms 

S2I»S2nt 

An.It-An*II*ERV*S21 
AlI.»tAt«An.OAI*60tfOISHI f-S2l I 
A 4 NAO*TI«S 2 t 

Am^Hi RAt>A(NS0.NAI*S21 

Amo»n-HC(it*s 2 t 

H^lin.HSUO«A(tlC.tt 


200 roNTiNuc 


AIHSOtOSOI»-SE 

r>..».Am$a»NO) AHO AINO.HSat ARE EOUAi TO 2ER0. 
A t N'i ", A A I • A ms t*» H A t *S R 
Amo»NO)-c 2 Suo+oooy 
A(«0, HAt •Hm-O-MSUO 
mATooo 

tfdCNlRtOO TO 202 


CALC 

111 

CALC 

316 

CALC 

919 

MOIX 

no 

NOXX 

120 

<*OXX 

921 

NOXX 

122 

NOXX 

329 

CALC 

321 

CALC 

322 

CALC 

323 

CALC 

326 

CALC 

329 

NOXX 

326 

NOXX 

329 

CALC 

329 

Noxr 

326 

NOXX 

327 

NOXX 

329 

NOXX 

329 

NOXX 

330 

NOXX 

331 

NOXX 

332 

NOXX 

333 

NOXX 

336 

CALC 

339 

CALC 

339 

CALC 

360 

CALC 

361 

NOXX 

339 

NOXX 

336 

NOXX 

337 

NOXR 

339 

NOXX 

339 

NOXX 

360 

NOXX 

361 

NOXX 

362 

NOXX 

363 

CALC 

391 

CALC 

392 

CALC 

393 

CALC 

396 

CALC 

399 

CALC 

396 

CALC 

397 

ASTER 

603 

CALC 

399 

CALC 

399 

CALC 

360 

CALC 

361 

CALC 

362 

CALC 

363 

CALC 

366 

CALC 

369 

CALC 

366 

CALC 

367 

CALC 

36A 

CALC 

369 

CALC 

370 

CALC 

371 

CALC 

372 

CALC 

373 

CALC 

376 

NOXX 

366 




ae'j 


<-» r> ' 


lt**T"NS 
no ?B1 t«X*NS 
?ni Atl»NSf<l-AM»N*» 

»B* CONTIHUF 
fin TO 400 
c 

c«*« ••• ••• ••• ••• 

*4# 44* 


OF POOH Q^'A: 1. V 


444 444 CHAFTiR % *44 

444 444 CHARTER 3 


444 

444 


**460UU!ARIU»1*4* 

OERTVATIVE Ann FUNCTION NATRIK FOR 


FMfLtRRtUn SOLUTION 


300 

310 


00 310 1-1»NLN 
ROUl-O.CDO 

HSIJN-0.000 

SiJN*O*Ofl0 

DO 340 I«1*NS 

SUN*SUH«S2m 

TNi-Nom*s2m 

MSUN-HSUN4TH1 

Tii?«|M0ni*S0(tl4T(ll“T(HSNl4FRLNI*S2CII 

A(N1*N3I-A(N1*N314TN2 

A(N2>N2l-A<N2*N2)«H0m*TNl 

AtN?,N3l«A<N2,N3)4H0m*TN2 


no 330 L«1»NIF 

IF (Al(LfII«EO*0.0D0) 60 TO 330 

C CROSsUERIVATliES OF 6LENENT EQUATIONS» 0 fUI/0 4100 

no 320 A-t»NL4 

IF < AL (Rit ItEO.O.OOOl 60 TO 320 

*CLiK»«*U»tO*AHK»l)4TN3 

r.Ii2.nERtVATIVES OF L-FLEHENT EON N.R.T. IN SN AND LN T 
*a»Nl)»A(l»Nll*TN3 
Aa»H2»-AUiN2»4Al(L»II*TNl 
(-.....negative of L-ELE4ENT FON» flU 

Aa»N3l-*(L»N3l*ALa.I»4TN2 
not U"flOU »♦*l<L»I^*Sl^n 
330 CONTINUE 
340 CONTINUE 


r 


A(N 1 *NI)«SU 4 -SN 

AtNl,N3»-A«Nl,N31-ISUN-SN) 

A(Nl,N 2 »iiHSUr 

4(N2.N2)-AIN2»N2J*C4SUH*00RV 
AIN2,N3)»a«H2»n 3I ♦HlN-NSUN-0 

....negative of t-ELENENT EONS* Fai 
no 330 t-l.NLN 

Atl *N3l«A(L,N3MftOa»-*a»Nlt 

330 CONTINUE 


..—STORE St44ETRIC ELENENTS OF NATRIK 

no 360 I*1|N2 
no 360 A-TiN2 
Aij*n*An»j» 

360 CONTINUE 


r 

r 

r 


-interchange sn- 

-Avntn POTENTIAL 


EON NITH ElENENT RON t NITH LAR6EST AIL*N1I TO 
FERO IN nlAGONAL ELENENT AlNltNll 


r 




NORF 

34 5 

NOKX 

346 

NOW 

347 

NOXX 

344 

CALC 

3T5 

CALC 

376 

CALC 

377 

CALC 

374 

CALC 

370 

CALC 

340 

CALC 

341 

CALC 

342 

CALC 

343 

CALC 

344 

CALC 

309 

CALC 

306 

CALC 

307 

CALC 

304 

CALC 

300 

CALC 

390 

CALC 

391 

CALC 

392 

CALC 

393 

CALC 

394 

CALC 

399 

CALC 

396 

CALC 

397 

CALC 

394 

CALC 

399 

CALC 

400 

CALC 

401 

CALC 

402 

CALC 

403 

CALC 

404 

CALC 

409 

CALC 

406 

CALC 

407 

CALC 

400 

CALC 

409 

CALC 

41C 

CALC 

411 

CALC 

412 

CALC 

413 

CALC 

414 

CALC 

415 

CALC 

416 

CALC 

417 

CALC 

414 

CALC 

419 

CALC 

420 

CALC 

421 

CALC 

4*2 

CALC 

423 

CALC 

424 

CALC 

429 

CALC 

426 

CALC 

427 

CALC 

424 

CALC 

429 

CALC 

430 

CALC 

431 

CALC 

432 

CALC 

433 

CALC 

434 


T)«l-0«OD0 
00 570 

IF (ML.Nn.LT.TMl 60 TO 170 

TMla*U»N) I 

U«t 

170 CONTINUC 

00 380 J«1»N3 
TNl-AINl* J» 

A(N1, Jt>AUL*4» 

AIU*J>*Tt<l 
1Q0 CQ1TINUE 
I"AT»N2 


OF hcou 






r*7*« «*•« «*«# 

C*77« •••• *•** 

c 

r •«*HATRt)( SOIUTTOH*** 

C SOLVF FOR CORRECTIONS BY STANDARD 

C 


•••• CHARTER 4 •••♦ 

charter 4 


RIVOTAL GAUSSIAN ELIHINATION 


R44 

4A* 


400 KRAT«INAT»1 

r— — OPTtONAt OUTPUT OF INTERNEDIATE VALUES FOR DEBUGGING 
IF (.NOT.lOEfiUet 60 TO 410 
TF (NOERUG.IT.S) GO TO 410 
MRITF(A»4Cn 

401 FORHAmHO* 10 X» 36 HELENENT$ All.KI OF CORRECTION HATRlR/t 
Op 401 R- 1 »IRAT 

H«ITE(6*402I U(K»1)»I<1*KHAT) 

402 FPRHATdXdPlOOR.O) 

401 CONTINUE 

410 CONTINUE 

DO 490 NN-1*INAT 
IF IA(NN»NNI.EO.C.ODOI GO TO 900 

'‘““—'■f’HRNf.F 1*000 TO 1.0 FOR N0N-I9N NACHIHES NOT REQUIRING DOUBLE RRE 
C OTNl-l*000/A(NNtNN| 

DTM1-1.COO/A(NN*kn) 

<(»NN4l 

00 420 JaFfKNAT 
A(NN> At-AINN* J)*nTNl 
4?0 CONTINUE 

IF (K.EO.KRATI GO TO 490 
00 440 MR.IRAT 

IF (AltfNNi.EO.O.OOOl GO TO 440 
on 430 J«K*KNAT 
A(t.JI"A(I.J)-A(I.NNI4A(NN.J) 

430 CONTINUE 
440 CONTINUE 
490 continue 

c 

C--~— back SOIVF FOR CORRECTION VECTOR 


K«TKAT 
460 A>K«1 

OSHN.0,000 

X(Kt>O.CDO 

TF (IHAT.LT.it GP TO 460 
00 470 I>J.INAT 
nSUNanSIIN4A(K*n*1((I) 

470 CONTINUE 
4Bp CONTINUE 

X(K)i<A(K.HNATI-OSUn 

K*ir.>l 

IF (K.NF.Ot €0 TO 460 


CALC 

439 

CALC 

436 

CALC 

417 

CALC 

4|A 

CALC 

414 

CALC 

440 

CALC 

441 

CALC 

442 

CALC 

441 

CALC 

444 

CALC 

449 

CALC 

446 

CALC 

447 

CALC 

448 

CALC 

444 

CALC 

490 

CALC 

491 

CALC 

492 

CALC 

493 

CALC 

494 

CALC 

499 

CALC 

496 

CALC 

497 

CALC 

498 

CALC 

499 

CALC 

460 

CALC 

461 

CALC 

462 

CALC 

463 

CALC 

464 

CALC 

469 

CALC 

466 

CALC 

467 

CALC 

468 

CALC 

464 

CALC 

470 

CALC 

471 

CALC 

472 

CALC 

473 

CALC 

474 

CALC 

479 

CALC 

4 76 

CALC 

477 

CALC 

47R 

CALC 

479 

CALC 

480 

CALC 

4B1 

CALC 

492 

CALC 

4B3 

CALC 

464 

CALC 

469 

CALC 

486 

CALC 

487 

CALC 

468 

CALC 

464 

CALC 

490 

CALC 

491 

CALC 

442 

CALC 

493 

CALC 

494 

CALC 

449 

CALC 

496 

CALC 

497 

CA(C 

448 


269 


RFTU»H 


*•**« 


• •••• 


«•••« 




CHAPTER 9 
chapter 9 


R«*** * 


C 

CRRRR* 

C****R 

C 

C •••STHBULAR natrirrrr 

C 

900 MRtTEC«»90n 

901 l^*^*'*AT(lHOrlOV»3(AH*R*P|»16HSIN<>ULAR HATRtx/i 

— .,trik 

RfTURM 

EHQ 

SURRCmTINt SPfCE 
C 

‘•■*®®»CRSUHi6HV.ER»FO,HSUOO»HSUH.HO»RAtRI.RRLM 
DOUBLE PRECISION K*y 

**5«**'^ PRECISION ETA»ETA0»ETA1*SUN<TINY«TN1*TNV>TSTi .ifH ua 
^ IffitCAL ‘■ADlA9»tC0NV6»LDE6U6»tEauU»LNR6*lREACTfLEHER * 

COMNriH 

1/C(AT#I/)H32>,Y(3?» 

l/C<iRECE/HO{3OltS0(3O)«SSAVE(3Oli2lT»2i3OI 


RHOP* 

LENER 


C 

r ************** a ************ a »*,^*^*^^** 

^ this SUBROUTIBE calls CALC TO COMPUTE THE CORRECTroNS*tn*TiIr ****** 



^ OATa I That Y50/» T IBY/1,Oo~2o/» TNT/-A6, 091700/ 

irnMYB-, false, 

S"«0,000 
DO 20 

IF (S?m.6T,TINVI GO TO 10 

S»m*TIBT 

Tffl.TNY 

GO TO 20 

10 s"»S"*S2(n 
Tm-otPBis2(in 

20 CONTtHUE 

T«INY.l,OnO/TR 
TLH*D106ITK » 

Y(NSM).OLOG(Sr> 

s"INY«i.qoc/sr 

YtNO»«UN 


r 

r* * a 

f • a ( 

r 

7(1 


t * 
• * 


* « * 
a • a 


« * * « * 
* * * * * 


********** CHAPTER 1 * 
••**a***a* CHAPTER 1 * 


* « * 
4 * * 


* * 
* a 


CALC 

A99 

CALC 

900 

CALC 

901 

CALC 

902 

CALC 

903 

CALC 

904 

CALC 

909 

CALC 

906 

CALC 

907 

CALC 

90B 

CALC 

909 

CALC 

910 

CALC 

911 

SPEC 

2 

SPEC 

3 

NOKX 

349 

NOXXX 

IT 

NOXXX 

IB 

NCIXXX 

14 

NOXX 

390 

NPXX 

391 

SPEC 

6 

S»FC 

T 

NQXX 

392 

SPEC 

« 

NOXX 

393 

NQXX 

394 

ASTER 

604 

NQXX 

396 

SPEC 

13 

NOXX 

397 

NOXX 

39B 

NQXX 

399 

SPEC 

16 

SPFC 

17 

SPEC 

IB 

SPEC 

19 

SPEC 

20 

S"EC 

21 

SPFC 

22 

SPFC 

23 

SPEC 

24 

SPEC 

29 

NOXX 

360 

SPEC 

27 

SPEC 

?n 

NOXX 

361 

SPEC 

30 

SPEC 

31 

SPEC 

32 

SPFC 

33 

SPEC 

34 

SPFC 

39 

SPEC 

36 

SPEC 

37 

SPFC 

3(1 

SPFC 

39 

SPEC 

40 

SPEC 

41 

SPFf 

42 

SPFC 

43 

S»£C 

44 

SPFC 

49 

SPFC 

46 


ukx:' ‘a».. »v\Ct: 

Or POC'R 0‘JALUir 


C ••♦SOLVE FOR CORRECTIONSV^^ 

r INITIATE THE ITE* LOOP AND CALL CALC TO SET UR AND CALCULATE THE 
f CORRECTinNS FOR EITHF» E0UILI9RIUN OR KINETIC SOLUTION 
r 

ETA-l.ODO 

ETAO«ETA 

NOEC«0 

NKLXoO 

no 990 ITER«l*ITMAX 
C 

CALL CALC 
C 

IF (IHAT.EO.NO) GO TO 300 
IR<INAT.EO*NS)AO TO 300 

r 

C 

c** «* *• «• 4« ** «« •• «• CHARTER Z •• •* •• 

c«* •* «• «* •* ** «« M «• •• •• charter 2 •• •• •• 

C 

C •••CONSTRUCT CORRECTIONS FOR EOUILIBRIUN SRECIES*** 

C CHECK FOR SINGULAR HATRI* IICOHVG SET TO TRUE AT END OF CALC» 

IF t.NOT.LCONVG) 60 TO 200 
ICONVA*. FALSE* 

RETURN 

C 

200 on 210 L«1*NLF 
210 PIIL)-X(Lt 
X(NSN)«X(N11 
X(N0»*X(N2) 

DO 230 I>1#NS 

V(n*HOm*W(NOI>IHO<II-SOm«Tm«RRLN-TINSM)«X(NSNI 

no 220 L>1*NLN 

X(n*X(It«AL(L*I>RPt(L) 

220 CONTINUE 
230 CONTINUE 
C 

C*** ••• ••• «•« *M «•• ••♦ •*• CHAPTER 3 ••• *•• 

C*** ••• •♦• ••• ••• ••• ••• ••• CHAPTER 3 ••• ♦•• 

C 

C •••CALCULATE UNQERRFL AXATION PARANETER ETAPRP 

C UNOERRELAXATION TESTS ARE DIFFERENT FOR NAJOR AND NINOR SPECIES KITH 
C ETA > NIN(ETA1*ETA2*1) WHERE 

r NAJOR SPECIES — S 2 tn/SN i.oo-e 

C NTNOR SPFCIES — S2(I>/SN l.OO-B 

C AND hnlY positive CORRECTION CHANGES FOR HOLE NUNBERS ARE NONITOREO 
C FTAl ■ NAJOR SRECIES CONTROL 
C FTA2 ■ NINOR SPECIES CONTROL 
r 

300 ETAO-FTA 
ETMt.ono 
ETAi«i.ono 
SUN'OABSTXINSPI I 
TNI-0ABSIX(H0I1 
IF (TN1*AT*SUH» SUN-TNl 
on 320 1-1»NS 

IF (X(n.lE.O.OOO» GO TO 320 
TF (S2mPSNINV.LE.l.00-B» GO TO 310 
c— -—NAJOR SPECIES 

IF (Xin.GT.SUNI SUN-KIII 
GO TO 320 

C NINOR SPECIES 

310 TST1«0AB$< {T(NSNHT(n-ti.91242900M(IX<n-X(NSnn4TINTH 
IF TTSTl.lT.FTAl) ETAl»TSTl 
320 CONTINUE 


SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

NOXX 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

sue 

NQXX 

SPEC 

SPEC 


AT 

4R 

49 

90 

91 

92 

93 

94 
99 

96 

97 
9B 
99 

342 

60 

61 

62 

63 

64 
69 
66 
67 
6A 

69 

70 
T1 

72 

73 

74 
79 

76 

77 
7A 

79 

80 
B1 
B2 
B3 
04 

89 
06 
B7 
BO 
09 

90 

91 

92 

93 

94 
99 
94 
97 
90 
99 

100 

101 

102 

103 

104 
109 
106 
363 
108 
109 

?71 
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IFISUn.Cr.<l.200IETA>0.200/SU)1 
IF IETA1.LT.FTA) FTA-ET*! 
tF(LFOUlLir>C TO AOO 
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c 

c 

c 

c 

c 

r 

c 


•AACnNVFtGENCE FONITQRtNG*** 

AFTFA TIN SUCCISSIVF UNDIORELAKED tTERATIONS* IN WHICH ETA DOES NOT 
INCREASE RV l.l OR NORE. OR AFTE* SIX ITERATIONS IN WHICH ETA 
DECREASES. 0IVER6ENCE IS ASSONED AND THE SOLUTinN TERNlNATEO 

LNRG-.TRUE. FULL EGUATIONS 

IF (ETA.EO.l.ODOl NRLR«-1 
IF((ETA/FTA0I.PE.1.100)NRLX> I 
N«LX-NRLXfl 

IF (NRLX.GT.IO) GO TO 900 
IF (FTA.LT.ETAOl NOEC-NOEC+1 
IF (.NOT.LNRG) NHFC*1 
IF (NOEC.GT.6) go TO 900 
C 

C«**W **•* 9M9 *«>** 9*99 CHARTER A 999W 

•*** «««* WRIIR CHARTER A 9*9R «** 

r 

C APPLY CORRFCTIOHS TO ESTIHATES 

r 

C 

AOO COMTINOE 
SltM>O.COO 
DO A20 1*1. NS 
Tm«Tm*iTA9»m 
IF m D.LT.TNV) GO TO AlO 

S2m»o£KRuiin 

SUN.SUW9S2m9SHH(l) 

GO TO A20 

C 

AlO ym-TNT 
S2m-T1NY 

C—>— INSURE CONVERGENCE TEST RASSEO WHENEVER TID-TNT 
V(I )"O.ODO 
A?0 CONTINUE 

00 A90 I-l.NS 
S2<n>S2(I)/SUN 
AAO T<n-nL0GIS2tlt) 

rMSMi.v(NS*)*ETA9K(NSN> 

SN-OF*R<Y(NSN) ) 

SNINV.l.OOO/SR 

y(M0)-Y(Nfl)«FT*9X<Na) 

TlN.Y(hO) 

TK.DEXP(TLN) 

TKINW-l.OOO/TR 

C 

IF I.NOT.LOEBUGI GO TO SOO 

IF tNDERUG.GF.3) WRITE ( (v. ASOt ITE R.ET A. LRE ACT.LE OUIL .L AOT AG* 

1 LNRG.HSUGO.Sn.ENV.TF 

IF (NDEGUR.GE.*) WRITEU.AAOI 1 1. ASUGI I* 1) .SIC I I.SEU) . Til I. 

1 Km.HOID.SOm.I-l.NS) 

fQRNAT( 2X. n.lP012.3.AL0tlPAD12.3) 

AAO Fnpi*ATI20>.THSPEClFS»AR»9MSim,TR.»HS2m»7X.AHYI 1)»GR. 
AAHK(n.AV»9HH0mrTX.9HS0mM16K.I2f3R*AA.2«.lR6012.3l I 
C 

••••• •••4* 444*4 #*444 CHARTER 9 4*4*4 * 

r***** 449*9 94*49 4***9 «**A4 CHARTER 9 9***4 4 

r 

r CONWFRr.FNCF CHECF...ALL HOLE NUNRE* CORRECTIONS OUST RE .LT. 1.0 RCT 


NOXX 

SREC 

SPEC 

SREC 

SREC 

SREC 

NOXX 

SREC 

SPEC 

SREC 

SPEC 

NOXX 

SREC 

SPEC 

SREC 

SREC 

SREC 

SREC 

SREC 

SREC 

SREC 

SREC 

SREC 

SREC 

SREC 

NOXX 

SREC 

SPEC 

SPEC 

SREC 

NOXX 

SPEC 

SPEC 

SPEC 

SREC 

SREC 

SPEC 

SREC 

NOXX 

NOXX 

NOXX 

SREC 

SREC 

SREC 

SPEC 

SREC 

SPEC 

SPEC 

SPEC 

SPEC 

SREC 

SPEC 

SREC 

SREC 

SPEC 

SREC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 


36A 
111 
112 
113 
llA 
119 
309 
II T 
11 " 

119 

120 
300 
122 
123 
12A 
129 
120 
127 
12G 

129 

130 

131 

132 

133 
ISA 
307 
139 
130 
137 
13" 
36G 
139 
lAO 
lAl 
1A2 
1A3 
lAA 
1A9 
364 
170 
371 
lAO 
lA? 
lA" 
1A9 

190 

191 

192 

193 
19A 
199 

196 

197 
19" 
199 
100 
161 
102 
)03 
lOA 
169 
100 
167 
10 " 


903 IF tFTA. IT. 1.000) GO TO 990 


00 no 

IF (nAe$(nim*fiT«o.oioo) go to 9^o 

no cooTiNUf 

lCnNVG-.TPU«. 

HSOIO*»4SUP**CASGTt( 

GFIIIPN 

r 

900 rOMTINUF 

C 

r 


PFTUftN 

c 


t, UALtULATES FUEL/AIR EOUIV PATIO* OIVEN HOLE NUMEPS IN SI APPAY* 
C OOTH6 RnSlTIVE AND Ne6''TIVE OXIDATION STATES (VALEHCESI 

C 

yo-o.ooo 

VH-O.OOO 
on MO i>i»N$ 

IP (Sim*lE*TtNV> 60 TO 610 
on AOO 1-UNJ.P 

IE ( AL(l*n.FO.O*DO) 60 TO 600 

IF (ATOP(3*l)«GT.OtOOOl VP*VFAAL (L* IIAATONOfl )*S1( 1) 

IF (ATOPO*U.tT. 0*000) VNaViiAALU*n*AT0NI3*l)*Sim 
600 CONTINUE 
MO CONTINUE 

f 

VN«-UN 

IF (YN.IT.TIHV) GC TO 620 
TF IVF.LT.TINT) CO TO 630 
FR»V"/VN 
RETURN 

r 

620 ERalOOOOOO.ODO 
RFTURN 






CRRRM* 

C 

fnTry epatic 
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630 FR-O.ODO 
C 

400 RETURN 
FNO 

SURROIITINF CRIPO 


nnUHE PRECISION AL*nO*CPSUN»ENV*EP*Fa.NSUSO«HSUN*HO*PA*PI*PPLN, 
I 00«01>02*03*OA»R6ASf R6ASIN*RHQP»SN*SNlMtf*SRN»SSAVE»S0*Sl*S2*TK» 
» TKINV*TIN*I»SP0 

onuotf PRECISION PX,PX2*TACT.TACT2*TEN»TEN2*X1»X2*CEPU 
OnURLE PRECISION X.Y 

OOUHF PRECISION ARniE.B»OX.GF«PECNT.RTlN»SUN.$UNX»SUH¥,S'JMl, 

1 TENLN,TN1,TN2.TI»T2»X6AP*XNAX*XNIN»YRAP 

LOGICAL iADlAP.LCONV6tinERU6«LEQUIL.LNOLES*LNR6*LPFACT»l$l*LENER 


CONNON 

3/CrMF-I/CPSUP»HSUN,F0,pPLN»R6AS»PfiASIN,S"INY»TRlNW»UN*LNP6 
l/CFOUtl/AL(T(3O)»AT0NI3f 7)*80(7)*PIIY) 

lACTNnEX/IOCO.ir>FU.I 0 n 2 *inN 2 *|OH 2 O»IOCO 2 *I 0 Hl,IOM 2 .IONl,t 0 NO.IDNO 2 

l*inn,TOOH, THCPS.ILC*UH,lNAT,IT|P»JA,N|,N2,Nl,NA»N6lOS,NGtOAP. 

» NIh,no.NSP*NS 1.NS2.IOCH 
l/C1ATRI/XC32)*Y(32) 

l/CPARAN/ASl'Rn0.»).EHV,FR*NSU90»H0EiU6»NS»PA»6O.01»02,O3»OA*RNnP, 

1 ^’'*SNNC10I.SNO*SlC30l*S2f30»* TK.tA0lARft')E8M6»LE00U*lREACT.lENER 


SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

SPEC 

CRKO 

CRKO 

NQXX 

NOXXK 

NOVRX 

NOXX 

NOXKX 

NOXXX 

NOXXX 

NOXX 

CRKO 

CRXO 

NOXX 

CRKO 

NOXX 

NOXX 

ASTER 

NOXX 

CRKO 

NOXX 


169 

17C 

ITl 

172 

173 

174 
ITS 

176 

177 
17R 
179 
ISO 
101 
102 

103 

104 

105 

106 
107 
100 
109 

190 

191 

192 

193 

194 
199 

196 

197 
190 

199 

200 
201 
202 

203 

204 
209 
206 
207 
200 

209 

210 
m 
212 

2 

3 

372 
22 
23 

373 
29 
26 
27 

374 
6 
7 

379 

9 

376 

377 
60S 
379 

13 
340 
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1>,6DKI J.ICCNV6 

NQXK 

301 


l/C*E«CT/Blin6t.nx2<16l>I0(6*36l**10DM3bl.T*CTIS6t»T«CT2ia6tf 

CRKO 

19 


2 TFNnM«TFB2n6»»Xl06l<X2IS6l*CEBUt»BI 

NOKK 

3»2 


l/C5<*FCEXH0<3OI»S0C30»*SS*Vf O0»#2 (7i2»SO» 

NOYX 

183 

c 


CRKO 

IB 

c* 


CRKO 

19 

r 

THIS SlJBHrUTlhF IS IHfi INlTIHIISHfi BQUTINE. IMF flPST r*H »f*nS 

CRKO 

20 

c 

m ELFNENT DATA 0FCK» (2) fHEPHO OATA DECK* AND O) EECHANlSN DATA 

CRKO 

21 

r 

DECK. EACH SUnSEOUEHT CAU «EAOS ONE PEACTANTS OATA DECK. ..NO UNIT 

CRKO 

22 

c 

ON NUNDEP OF CAU.S...ONE FOR EACH DIFFERENT REACTANT STREAN 

CRKO 

23 

c 

PRESSURE AND TENKFRATURE OF EACH REACTANT STREAN NWST RE SURRUEO •» 

CRKO 

24 

c 

CAtUNP. RROGRAR IN RA AND TK» RESRECTIVELY 

CRKO 

29 

c 

ON return* CAUING RROGRAN NUST store hole NUNDERS 32(11* RRESSUREi 

CRKO 

26 

c 

TENBERATURE* enthalpy and DENSITY AT ARRRORRIATE INLET fiRlD NODE 

CRKO 

27 

c 

REFERENCE CRER (WASHINGTON STATE UNtVERSlTVI RARCN 1976 

CRKO 

2B 

c* 


CRKO 

29 

c 


CRKO 

30 


DINENSICN C0ATAI12I*AT(A)*S(A) 

CRKO 

31 

f 


CRKO 

32 


DATA ACC/AHCO /*AC02AAHC02 A*AH2/AHH2 /*AH2Q/AHH2a /* 

CRKO 

33 


1AN;H/AHRECH/*AN2/AHN2 A»A02/AH02 /*BLANK/AH /*«LNK/2H /» 

CRKO 

34 


9ElEN/AHELEN/*GA7/lNG/*GL0RAAHGLnK/*N0LAlHN/>NSTRN/CA* 

CRKO 

39 


1»eAC/ANREAC/*REWE/AHREWE7»TENLNA2,3025«A09300F*THER/AHTHER/» 

CRKO 

36 


ATHIRD/AHN A* TRAX/0.OOlDO/»XNlN/O*0O93a3S33D0/ 

CRKO 

37 


DATA CARB*CGS*CONNiHYDR/ 1HC*AHCGS tAHCOHH.lHH/ 

CRKO 

36 

r 


CRKO 

39 


10 READ(9*?0» (C0ATA(n»l*U12) 

CRKO 

40 


20 FnRNAT(X2AA) 

CRKO 

41 


HRITE(F*30I <CDATA(n*I*l*12) 

CRKQ 

4? 


30 FQRNAT(1H0*9X*12AA> 

CRKO 

43 

c 


CRKO 

44 


IF (CDATAdl.EGtPlANKI 60 TO 10 

CRKO 

49 


IF (COATA(n.EO.ELEN) GO TQ 100 

CRKO 

46 


IF (COATAdI.EO.THERI GO TO 200 

CRKO 

47 


IF tCOATAdI.EO.ANCHI GO TO 100 

CRKO 

4B 


IF (COATAd I.EO.REACI GO TO 400 

CRKO 

49 


GO TO 10 

CRKO 

90 

c 


CRKO 

91 

c< 


A CRKO 

92 



I CRKO 

93 

p 


C«KO 

99 

c 

•••EIFNENTSBB* 

CRKO 

99 

c 

»F*0 FLE"Fnt OATA FRON CAROS 

CRKO 

96 

r 

ATONIl.KI - SYRROL* ATQN(2»K» - ATONIC WT* ATORd*K» - VALENCE 

CRKO 

97 

c 


CRKO 

96 


100 RGAS>R31A.AD0 

CRKO 

99 


RGASIN*1.0DO/RGAS 

CRKO 

60 


loco »0 

CRKO 

61 


inc n2«o 

CRKO 

62 


inH? -0 

CRKO 

63 


I0H2O-C 

CRKO 

64 


I0N2 »c 

CRKO 

69 


IP02 -C 

CRKO 

66 


tlC-0 

CRKO 

67 


TlH>0 

CRKO 

69 


1 AOIAR-.TPUf « 

CRKO 

69 


LDENUG*. false. 

CRKO 

70 


nOFRUG"? 

CRKO 

71 


LEOUU -.FALSE* 

NQXX 

364 


lrfact-.true. 

CRKO 

73 


LSI-. TRUE, 

CRKO 

74 


LNBP.-.TBUE* 

NQXX 

3B9 


LENEP«.TRllf . 

NOKX 

3B6 


co- 1,000 

CRKO 

76 


;74 


r 

1 ,, 

CRKO 

77 


Nt""l Of ., 

CRKO 

7B 

no 

RCAOt9il20> (AT0R|K>H|.n)t|(«l>3l ‘ ' 

CRKO 

79 

l»0 

FOR(4AT(A2t7)t«2flO«6» 

CRKO 

BO 


IF (ATOr<n>NLni.fQ.nLANH| 60 TO lAO 

CRKO 

81 


URITM6»130) lATf]f<(*(>NlO)»tC«lf3l 

CRKO 

B2 

ISO 

FattNATIlRf A2»9R>7F19*A/I 

CRKO 

BR 


IF (ATOP*n*NMI,EO.CARB) ILC-NLO 

CRKO 

BA 


IF UTOFdfNLFl.FO.HrORI 

CRKO 

B9 


NLN-NLF*! 

CRKO 

• 6 


r-ft TO no 

CRKO 

BT 

c 


CRKO 

BB 

MO 

CONTINUF 

CRKO 

B9 


fUN-NLF-i 

CRKO 

90 


Nl»Nl«*l 

CRKO 

91 


M2«NI"42 

CRKO 

92 


•0*HU«43 

CRKO 

93 


on TO 10 

CRKO 

96 

r 


CRKO 

99 



CRKO 

96 



CRKO 

97 

r 


CRKO 

«e 

C •••THFRMn*** 

CRKO 

99 

C RFAO THERCOOYNAMIC DATA CARDS 

CRKO 

100 

r 


CRKO 

101 

200 

NS*1 

CRKO 

102 

>01 

«FAO( 9*2101 (CDATAmtI>l»3l»0Tl»0T2»(AT( JI»eM»»J*l*A>»RKAI> 

CRKO 

103 

lTl*T2»t<C0 

CRKO 

106 

210 

FnRMATOAA»6N*2A3*AU2»F3.0l»Al»2F10*3>U9l 

CRKO 

109 


IF (COATA«lt*EQ«fll.ANFi 60 TO 260 

CRKO 

106 


H0ITF(6»211MCOATAm»I>l*3l*DTt*OT2*UT( JI»OU»*J-l»A>fFOA2* 

CRKO 

lOT 

m.T2»wcn 

CRKO 

108 

211 

FORMAT! 10X*3AA»6X*2A3»2X*A(A2»2X*F3,0lt2K»Al*2X»2F10«3* 119) 

CRKO 

109 


IF (RHA2.NF.GAM WRITE(6i212) ICOATA(ll»t-l*3)*RHA2 

CRKO 

110 

212 

FnRMAT<lH0il0X*26HHARNli46.*»0ATA FOR SREClES»2Xt3AA*3X* 

CRKO 

111 


•IIHNOT GAS RUT»2X*A1//I 

CRKO 

112 


-RFAn 2 WITH FIRST AND SECOND SUBSCRIPTS REVERSED 

CRKO 

113 


RFA0(9*213) (MJ»l.NS)*J-l*9)*NC0 

CRKO 

116 

»n 

Fr)RNAT(9ni9.BtI9) 

CRKO 

119 


WRITE (6*21 A) IMJ*1»NS)* J-1>9).NC0 

CRKO 

116 

21A 

FORNAmox.sDis.e.m 

CRKO 

117 


REAOC 9*213) <7( J*1*NS)*J-6»T)* (nK»2*NS)»K-l*3l»NC0 

CRKO 

110 


WRtTF(6*2M) mj*l*NS)*<)>6»r>*(MK»2»NS)«K-l»31*NC0 

CRKO 

119 


RFAOC 9*219) (2U*2*NS)*J«A*7>»NCO 

CRKO 

120 

>19 

FnRHAT(AD19.a*!20) 

CRKO 

121 


WRITE (6*2 16) (M J*2*NS)*J*9»T)»NCD 

CRKO 

122 

21A 

FORMAT (10X*A01 9. B* 120 F) 

CRKO 

123 

C 


CRKO 

126 

f — 

-ESTABLISH ATOM STOICH10NETRY...AL (L*NI - (K6-AT0NS ElENENT 1 

CRKC 

129 


-RFR KC-(iOLeCUlf CF SPECIES N) 

CRKO 

126 

C 


CRKO 

127 


00 220 I'l.NLN 

CRKO 

12A 

2 20 

AL(L*NS)-0*ODC 

CRKO 

129 

r 


CRKO 

130 


siiN.o.ono 

CRKO 

131 


or 240 Kol*A 

CRKO 

132 


IF (A(R).FQ.O*000> 60 TO 240 

CRKO 

131 


no 230 L«l*NtN 

CRKO 

136 


IF (ATCP(l*l )*NE«AT(K) ) GO TO 230 

CRKO 

139 


Aid *NS)"Al(l*N5)4A(R) 

CRKO 

136 

f 


CRKO 

137 

f' *p* • 

-ESTAAIISH AmECULAR WEIGHT OF SPECIES 

CRKO 

138 

r 


CRKO 

139 


S(|A.SUA*ATrM(2.L)P«(X) 

CPKO 

160 


>“<0 fOMTINUF 
»4r> CnNTINlIf 

<iMM(t4SI>>SUP 

S2(NS>*l,00'-6 

MOllEfinH OF S^FCIES 

on znO 1"1>3 
«<)0 AStm(NS«n*CO«TA<Tt 
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STQRF IWOlX NUWBfP OF SPECIES 

IF USUM»S.J)*E8.AC(*> inCO-HS 
IF tAS«i<NStl).E0.ACn2» I0C02-NS 

IF l*StlMNStl».Efl.AH?I |nH2«HS 
IF (AXUB(NS»ll.f0.*H?0) ICM2Q-SS 
IF (A5UMNS»X).E0.AN2) I0N2-NS 
IF (ABUMNS»H»E0.A02I I002«N? 

IFINS.Nt.IOCMJGO TO 2B2 

on ?91 l-l»2 

2 91 T I J ptllDCM) ■2U»I*lf)CH»*I$O»Hl0FU)"2»0l)O)/28.OOC 
75? Cfl'^TINlIf 


NS-NS+l 
on TO 201 


260 NS-NS-l 
KS'<«NS ♦! 
NQaMS«2 
NAaNS ♦a 

r.n TO 10 


*** 

«** 


*•* 


•** 


**• 

**• 


66 * 

*i «6 


6*6 

6*6 


*** 

*66 


6*6 

*•6 


CHAPTER 3 
CHAPTER 3 


«*«HFCHANISP 6*6 

RFAf' *FCHANtSH/RATf DATA CAROS 
TMF WARIABIE OTl ICOLUHHS 73/761 


IS USED AS A FLAGS 


COS 

cnfAH — 
REVF 

RiOB — 
OTHFRWISF 


6*6 

*•6 


SEC 


CCS UNITSi RATE CONSTA'iTS IN GN-">HES» CHt 
ANO FACT IN (RCAL/Cn-N'JLE) 

eCHFENT CARt)» FIRST *" CHARACTERS PRINTEO OUT 
REVERSE RATE DATA, IN S4"£ UNITS AS FORVARO DATA 
CLOFAt RATE EXPRESSION DATA IN SI UNITS 
lunrawiir THE SI UNITS «»G-NntES, H, SEC1 ARE ASSUNIO 
OTl AiiO 0T2 <COL 73/POl CAN HAVE ANTTHING (CONOFNTSI IF 
HOROS ARF not REOUIRFt) w 

TACT IS ACTIVATTPV TENPERATURE, • EACT/6ASC0N# 016 K 


* 6 * 

* 6 * 


A90V6 FOUR 


300 


JJal 

NCLOR* 


310 REAni5,311HC0ATAm,l»l,121,BXT<3»*TENI JJ1»TACTUJI, 

1 CFBUT JJt»DTl,nT2 

*11 FnRHAT<12AA,FT,3»F5,3,F7,3#F9.1»2AA1 

IF trOATAtll.fO.BlANB.ANO.OTl.NE.CONNI 

fuFCK FOR CCPPFNT CARO 

If lOTl.NF .CrHN) on TO 313 
W*ITFI6,3171 IC0ATAm,tal,12t 

31 7 FnRNATTlH0,5A,1H***,l7A*,3H6*6) 

r,n TO 310 

r- ruFfK FOR REVERSE RATF OATA.,,0R0ER OF 

r, „„llNtTS (If RfVERSF DATA ASSUHFO SANE AS 

313 IF tnn.Nf.RFVE) 60 TO 315 


r.O TO 356 


CAROS nUST BE 
t'ORMARD OATA 


CORRECT 


CRKO 

lAl 

CRKO 

IA2 

CRKO 

1A3 

CRKO 

lAA 

CRRO 

1A3 

CP«0 

1A6 

CRKO 

lAT 

CRKO 

lAB 

CRKO 

1A9 

CRKO 

150 

CRKO 

151 

CRKO 

152 

CRKO 

193 

CRKO 

15A 

CRKO 

159 

CRKO 

196 

CRKO 

197 

CRKO 

19B 

♦ STEP 

606 

ASTEP 

607 

aster 

609 

ASTER 

609 

ASTEP 

610 

CRKO 

199 

CRKO 

160 

CRKO 

161 

CRKO 

162 

CRKO 

163 

CRKO 

16A 

CRKO 

169 

CRKO 

166 

CRKO 

167 

CRKO 

166 

CRKO 

169 

CRKO 

170 

CRKO 

171 

CRKO 

172 

CRKO 

173 

CRKO 

17A 

CRKO 

179 

CRKO 

1’6 

CRKO 

l.’T 

CRKO 

17A 

CRKO 

179 

CRKO 

19C 

CRKO 

161 

CRKO 

162 

CRKO 

163 

CRKO 

16A 

CRKO 

169 

CRKO 

166 

CRKO 

187 

NOXX 

3*7 

NOXX 

38B 

NOXX 

389 

CRKO 

190 

CPKO 

191 

CRKO 

192 

CRKO 

193 

CRKO 

19* 

CRKO 

199 

CRKO 

196 

CRKO 

197 

CRKO 

199 
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c 


c 


c 


r 


qx?( 

TFN2(il-T{r((4J) 

T*CT 2 I J)>T*tTU 4 » 

WR1TFI6*314I J>,TEN2U)»TACTHJ»»Dn»0Tl 

314 F0<*WAT< 14*» l7H*f VERSf RATE OAT A » 2<X i 3F14* 3 » IA4 > 
.....CQI«VF)>T B«2 fO* IMTE«NAl CAICULATIONS 
aX2( J)"eK?IJ)*TCNLN 
IF usn fio TP 310 
«X?( J»«BX2UI-TFNLN*3.000 
TA0T2< JI-TACT2C J|410OO«0OOMt96TD0 
IF ITtnOM J»»F0.2I 4X2 ( J>«8X*UI-TetaN*l«000 
GQ TO 310 

...^..^CHFCK FHO UNITS 
311 ISI-.TRUF. 

IF <OT1,EO.C6S» tSt«.FAtSF. 


URITI (6*316) J3*(CDATA(t ) »I •!* 12) »9X( 3J) »T|N< JJ )i T ACT( 44)» 0Tl»0T2 
316 F0RN4TUH0»3XiIS»*M» »12A4*3F19»3*3«*2A4) 

F (.NOT, ISI) T*CT(J4)»TACT(JJ)*1000.00/1.0010C 
IF (OTl^EO.GLflB) NGt04*NGI,0B*l 
...••convert BX FCR internal CALCULATIONS 
BX( JJ)«BX( JJ)*TENLN 


C 

c 10(1, J) IS the 

C •REACTICN j 

c 

on 320 I»l *6 

370 lOdiJJI^O 


INOiX NUMBER OF THE 1-TH DISTINCT SPECIES IN 
1-1, A AS NO DISTINCT TMIPO BODIES A«F CONSIDERED 


no 321 N-1.6 
K-N*2>1 

IF (COATA(K).FO. BLANK) GO TO 325 
IF (COATA(K).NE. THIRD) GO TO 321 
C04TA(K)-BLAN« 

GO TO 321 

371 CONTINUE 

no 372 I-l.NS 

IF (cnATA(K).Nf.ASUB(I.l)) 60 TO 322 
IF (CDATA(K*1I ,NE,ASUB(I*2) ) 60 TO 322 
II-I 

GO TO 323 

372 CONTINUE 

373 CONTINUF 
iniN ,4J)-It 

321 CONTINUF 


r 



r 

r 

r 

r 

f 

C 

r 

r 


STORF THE TTPE OF REACTION.. .THREE TTPES 
MOOR 1 ...A ♦ B (*C) *•-”) 0 ♦ E (RF) 

NOnR 7 ... AB ♦ M A ♦ B ♦ N 

NODR 3 ... A*e*M “““ AA ♦ M 

Nor)R( 4 J )*1 

IF 1 IC(7,JJ).ED.O) NnORUJ)*2 
IF (tnd, JJI.EO.C) M0OR(JJ)«3 


THF FOLLOWING SECTION. OP TO STATEMENT 319 »«tUSI«. MAT BF 
FLTMINATEO if RFVFRSE (AS WELL AS '-ORWARI)) RATI DATA IS SUPPLIED 
FQ* P* ALL ♦* RFACTIONS. 


CAICOIATFS RFVFRSF RATE CONSTANTS FROM EOUILIBRIUM CONSTANTS 
and FORMARO RATF constants for FIFTEEN POINTS 


CRKO 

199 

CRKO 

200 

CRKO 

201 

CRKO 

202 

CRKO 

203 

CRKO 

204 

CRKO 

201 

CRKO 

206 

CRKO 

207 

CRKO 

20B 

CRKO 

209 

CRKO 

210 

CRKO 

211 

CRKO 

212 

CRKO 

213 

CRKU 

214 

CRKO 

219 

CRKO 

216 

CRKO 

21? 

CRKO 

216 

CRKO 

219 

CR«0 

220 

CRKO 

221 

CRKO 

222 

CRKO 

223 

CRKO 

22A 

CRKO 

229 

CRKO 

226 

CRKO 

227 

CRKO 

22B 

CRKO 

229 

CRKO 

230 

CRKO 

231 

CRKO 

232 

CRKO 

233 

CRKO 

234 

CRKO 

239 

CRKO 

236 

CRKO 

237 

CRRQ 

73B 

CRKO 

239 

CRKO 

240 

CRKO 

241 

CRKO 

242 

CRKO 

243 

CRKO 

244 

CRKO 

241 

CRKO 

246 

CRKO 

247 

CRKO 

24B 

CRKO 

249 

CRKO 

790 

CRKO 

291 

CRKO 

292 

CRKO 

253 

CRKO 

294 

CRKO 

299 

CRKO 

216 

CRKO 

217 

CRKO 

71R 

CRKO 

2*9 

CRKO 

260 

CRKO 

261 

CRKO 

262 


277 






A 




naiyHMkiiiiMaA 


r 

OVFR THF TtNfFAATMRF »ANr,F 1000 TO 3000 OFG «< 

CRKO 

263 

r 


COAQ 

769 

r 

INSfRTFD 1 STFR If.O.HnnVFN, 7/??/7*M 

C RAO 

769 


IF (OTl.ra.CI 091 Gil TO 397 

CRxn 

766 


IF (OTi.Eo.Ginni r.n to 199 

CKKI) 

76 7 


n3*IXMAA>7NIN)/lA,( 1)0 

CARO 

?A» 


SIIMIIaO.onO 

CRHO 

76« 


SlINT-O.COO 

C»«n 

770 


IMGRS-? 

L RXO 

271 


on 391 N»l,19 

CRXO 

2 7? 


X<NI-X9!N*t»«#M.PAT(N-H 

NOKKX 

?rt 


SI|N*iiS«NX*XIN) 

c»xo 

779 


TKTNV*X<N) 

c»«o 

279 


TX.l.OnO/TKlHV 

CRXO 

276 


TlN-ni CGITKI 

CRRO 

277 


NS1»l 

NOXX 

340 


**S?-NS 

NOXX 

391 


CAtL HCPS 

CMO 

279 


SlINl-C.OOO 

CRXO 

279 


nr 390 N0-lf6 

CRKO 

290 


K"tn(Nn» jj» 

CkxO 

791 


IF IK.FO.OI GO TO 390 

CRRO 

292 


gf»hO(i«i-S0<*M 

CRKIJ 

293 


IF INO.IT.A* SUNl.SUNl^GF 

CRKO 

299 


IF (NO, 66. A) SU91-SUNX-6F 

CRNO 

289 

3><»> 

continuf 

CRKU 

2 96 


T91 .0,010 

CRRO 

297 

r NATURAL ICtGS HF GAS CONSTANTS. ..R-02. 097 CN3-ATN/GNri. • K (CGSt 

CRRU 

289 

r 

AMO R«C, 092097 N 3-aTn /KGNO t * K (SD 

CRRO 

299 


»nN»UN*A, A07A0C 

CRKO 

290 


TF asn *UN-UN-?,9003Al)0 

CRRO 

291 


tr <NnnR( JJ I.CT.1) GO TO 3901 

CRRO 

292 


ir 1 1(1(3, JJ1, Ft), 0) T"1-TN1»RTLN 

CRRO 

793 


IF 1 10(6, J,( ).t0,0> TNl-TNl-RTlN 

CRRO 

299 


r.r TO 3902 

CRKO 

299 

3901 

CrtNTlNlIf 

CRKO 

296 


IF 110(2, JJJ. 60. 0) T"l"fiUN 

CRKO 

?9T 


ir 110(5, JJ), 60, C) TNl.-RTLN 

CRRO 

298 

3902 

continue 

CRKO 

299 


T(N)^TFl-SUrl*T6N( JJ)*Tl.N»f ACT( JJI*TKIHV*BXUJ» 

CRKO 

300 


^(INy.SUNr + TCNI 

CRKO 

301 

391 

CnNTINuF 

CRKO 

302 


X«A»9SUN»/19,000 

CRRO 

303 


vRAR.sti"y/i9,coo 

CRRO 

309 


SUN*. ft, 0(10 

CRRO 

305 


suNi-c.cno 

CRRO 

306 


sHMv.o.cnc 

CRKO 

307 


on 352 N-1,19 

CRKO 

308 


S1JN*-SUNK*Y(NI*(*(NI~K«AR) 

CRKO 

309 


S1"*l .StlNlf (* (M<.*AAR )*•* 

CRKO 

310 


SUNY-SUNY* <T(NI-T9AR l**2 

ffiRp 

311 

3t? 

roNTINOf 

CRKO 

312 


TFN?( JJ j.o.ono 

CRKO 

313 


TACT2< JJt— SUNXTSUNl 

f RKI? 

U9 


9«2t J4I*><V9AR*TAC12( JJ»**BAin/TE»»tH 

CRKU 

319 


Sl'NX.Q.CPO 

CRRO 

316 


n<' 391 N.1,19 

CRRO 

317 


SllNY.SU»‘**lT<N»*TACT2( JJ)**(N)“TfNtN*9*2( J4n**2 

C»RO 

319 

391 

f I'NTINUf 

C«RO 

09 


MINY.dSOfin 1.00C''SIINXFSUNY» 

CRKO 

320 


SU-X.nSORM^llNi/lA.OOfH 

CRKO 

371 


roATA(l(.TACI2l JJ» 

CRKO 

37 7 


IT (.NPT.ISn fnATAUI.TACT^I JJ**l,<»*7no*0»001(1C 

CRRO 

323 


w°1 tru , 399* FX2(.*J( ,TFN2( JJ).rnAIA( U»SUNK»5IU*T 

CRRO 

379 


i/c 


■i\S' 




tV 


FnR«*H6X»97H CAICiHATEO HEWERSE RATE DATA* SfO OEV ANft CQRR COEF 
1 - *3F19.3»AR.lR?0t0.)l 

r rpNVEAT A»? FOR fKTERNAL CAtCULATtQNS 

9>)MJJ)>RX?IJJI*TFNLR 

r 

— ^ET REVERSE REACTION RATE VARIABlES-0 FOR «LOML REACTIONS 
C— — sn THAT THESE VARIASEES ARE OEFINEO FOR THE KINETIC RATE 
r— >— "RR intoot (n.o.hqowen t/ez/tvi 

197 IF «0Tl,NE.6tCRI fiO TO 395 

tact?< JJ»-C 

TFN?UJI«0 
399 JJ-JJAI 

C— ^CONVERT AU RATE DATA TO SI UNITS 
TF (LSn 60 TO 310 
4 -JJ-l 

RX( Jt>exU»-TENLNR3,0D0 
aXE U I -ax? < J I-TENINR3.000 
IF INOORI JI.EO.Et RXE(J>>AX2m-TENlN*l«0D0 
IF (NOORUI.EO.ai aRU>-ax(J»«TENlN* 3.000 
IF (NOORt JI.NE.U 60 TO 310 
IF (ton* JI.NE.OI BX|Jtn9X<Jt-TENLNR3.000 
IF <tn( 6 t JI.NE.OI aX2( J)*ax2(4)-TENINR3,0DC 
r,n TO 310 
c 

399 JJ-J4-1 

NfLOKR^NriOR^l 

C 

C— — RRIHT OUT ARRAY OF STOICMIONETR IC COEFFICIENTS 

r 

00 37 ? J« 1 «JJ 
00 370 N-l »6 
R«N#?-1 
l-N 

COATA(RI«etANK 

CnATAlKAn-RLAHK 

TDLJ>IOIL>J) 

IF (tOLJ.EC.O) 60 10 370 
COATA(K)-fc$un(IOU»ll 
COATAJF*! )«ASUMtPlJ»?1 
3 70 CfiNTINUF 

IF (I0(2>JI.E0.0I CDATA(9I*TH1R0 
IF n0(9» J1.E0.0l C0A1A(91-THIR0 
IF IN00RIJI.6T.il COATAmi-THIRO 
MRtrF(e.371) J»(rnATA(K|»K«l»12t 
371 F0RNiT(9*.19»lH,»9X»6AA»^H-— »aX*6AA/l 
37? CONTINUE 
t 

r RRINT CUT ALt RATE OAiA IN SI UNITS 

r 

HRtT6»6»3flC> 

3A9 FnRN*Tt//lHC»A0X.29HKINETlC RATE DATA IN SI ONITj/ 

A1H0»6X»1HJ,?X>AHR0I)R*UX»2HI0»1'>X»2HRX>10X>3HTER*9X« AMTACT» 
n3X,3MaX?»«>X»AHTEN2,0X,9«TACT2/» 
on 3A? J>1»JJ 
TN1«8YIJ)/TERIH 
TN*-AX?(J1/TFMN 

WRITE 19 . 3R] 1 J.N{inR|j),(lO( I* Jltt-l»6WTNltTEN( Jt.TACTI Jl> 
1T"?.TFH?(J),TACT?U1 
39? CONTINUE 

3F1 FnRMAT((9X» 2»lH.>|A»3Rt6l4*?(?X*3F13.3)M 

C 

r— — SET contact indexes to unity 

00 390 J-l.JJ 


CRKO 

329 

CRKO 

326 

CFRO 

127 

CRKO 

32R 

CRKO 

129 

CRKO 

330 

CRKO 

331 

CRKO 

332 

CRKO 

333 

CRKO 

334 

CRKO 

339 

CRKO 

336 

CRKO 

337 

CRKO 

339 

CRKO 

339 

CRKO 

340 

CRKO 

341 

CRKO 

342 

CRKO 

343 

CRKO 

344 

CRKO 

349 

CRKO 

346 

CRKO 

347 

CRKO 

348 

CRKO 

349 

CRKO 

390 

CRKO 

351 

CRKO 

392 

CRKO 

193 

CRKO 

39^ 

CRKO 

399 

CRKO 

396 

CRKO 

3S7 

CRK; 

398 

CRKO 

399 

CRKO 

360 

CRKO 

361 

CRKO 

362 

CRKO 

363 

CRKO 

364 

CRKO 

369 

CRKO 

366 

CRKO 

367 

CRKO 

360 

CRKO 

369 

CRKO 

370 

CRKO 

371 

CRKO 

372 

CRKO 

373 

CRKO 

ST4 

CRKO 

379 

CRKO 

376 

CRKO 

377 

CRKO 

370 

CRKO 

379 

CRKO 

300 

CRKH 

301 

CRKO 

302 

CRKO 

303 

CRKO 

304 

CRKO 

399 

CRKO 

306 

CRKO 

357 

CRKO 

300 


279 




300 

t 

Xl( JI-l.OOC 
K2UI-1.00C 
CONTINUE 

RETURN 

r 


r«*4* 


CAP* / 

PAPA 


*••• 


**** 


•*** 




CHAMM 4 
chapter 4 


•••* 


**« 


•••RPACTAHTS*** 

PFAn BF*rT*NTS OAT* CAROS FOU EACH IMtET STREAh 

400 NSTRH-P4TR* *1 
T 40Lf S«.F*lSf , 

SREClfS MOlf NU"4f* ARRAY 
on A04 I»1#RS 
A04 S2( I> ■O.OOO 

su'*i-o.ono 

A TO »t*0t4»4in (ATni»BCT»»I*l»4l*TC0AT*ni»I»l»2l»RFCMT*10L6**HAt 
All *n*n*Tt4tA2*FT.9l»2A4«l«»R?.4»Al»9*»Al» 

If ( AT(n.fO.RLH«) 60 TO *90 

wBTTFtA»412l (*T«Ui9( I» , 1-1.4 I . (COATAM I . I •! »2 l»R«CWT. "OLf t 
1 PHAT,k?TR" 

*12 FORAATC IK. 4 C2*» A? »F9.9 » .2K.2A4.21t.F9.9.2R.A1.2K.Al»2X.I9l 
IF <«(Hf .FO.POI. ) IHOIFS-.TRUF. 


•FSTARtlSH POLE WllPAFRS (tcF.-nnL t/Afih HIKTURtl IP INlFT STRFap 


tkinv-i.ooo/tk 

SFRFFM FOR CONOFRSFO SRFCIfS 

OQ 430 l-l.MS 

.....SFRFFN FDA SPECIES NANF 

IF (C0AT*(i».NF.*su4n.in on to *30 

TF (CO*T*(2).NF.*Sil4n.2H GO TO 430 

on A’* 

fpR ATmK coHROsinoN 
nn A?o p-1.4 

TP (ATnnn.u.Nf -*T<*n on to 420 
TF <Ai ii.n.RE.MKU no TO *30 
A20 cn'JTTNOF 

IF PFfAT IS RELATIVE “ASS. CONVERT TO RELATIVE POLE NIJRRFRS 

APOLF-RECvT/SRVm 
IF AROLF-PFCVT 

42lT»-S2m**"0LF 
si»Mi«SHPi**priE*SPvt n 
r.n Tfl *1C 
*30 tout TRUE 

WRITE (6. A*C 1 

A*0 FORw*TnHC»101i.*9H REACTANT ABOVE NOT FOMNO IN THERNO L19RARK/ 
Gf TO *10 


*A0 r^MTlNlPF 

ESTABLISH PIKTURE ENTHALPY 

IHC*S-1 
r At ( HFPS 


WPTTFtfc.AYO NSTPn 

AAO f ORNAYI IHO.IRN*** REACIAnT STREAN.IS.4H •*•/ 

Al'*0, AK,lHI.*lt.THSPEf:iES.l**.IfcMNOL£Cl(LAR WE lEHT.ft. 

q)74i.ntf hIiPPEPA,R*,1*4"ASS E P AC T I ONS / 32 » • 1 Th| p f ^Ft E M. 


CRRQ 

349 

CRRO 

390 

f Rwn 

391 

CRPO 

392 

CRwn 

393 

C»RO 

394 

c««o 

399 

CRKO 

39ft 

C*RO 

39 Y 

CRKO 

398 

CRKO 

399 

CRKO 

400 

CRKO 

401 

CRKO 

402 

CRKO 

403 

CRKO 

404 

CRKO 

409 

CRKO 

404 

CRKO 

407 

CRKO 

408 

CRKO 

409 

CRKO 

410 

CRKO 

411 

CRKO 

412 

CRKO 

*13 

CRKO 

*1* 

CRKO 

*19 

CRKO 

*14 

CRKO 

*17 

CRKO 

*IR 

CRKO 

419 

CRKO 

*20 

C»Kn 

*21 

CRKO 

*2? 

CRKO 

A?3 

CRKO 

*2. 

CEKO 

A?!i 

CRKO 

*24 

CR'O 

*27 

CRKO 

*2fi 

C»KO 

*29 

CRKO 

*30 

CRKO 

*31 

CRKO 

*32 

C»*0 

*33 

CRKO 

*3* 

C®KO 

*39 

CRKO 

*34 

CRKO 

*37 

CRKO 

*3B 

C»KO 

*39 

CRKO 

**C 

CRKO 

**1 

CRKC 

*2 

C*KO 

**3 

CRKO 

*** 

CPKn 

A*9 

r PR n 

**4 

CRKO 

**7 

CRKO 

**P 

CRKO 

**o 

CRKO 

*40 

CRKfi 

*91 

''PK(l 

*9? 


r;,' 

OF POOR 


,'M(^ 


C4x> iTHtncnnic n/tKC xwix>13h(k6 ii/ikg ki/» 

HSUhoO.OCO 
$N»0.000 
nn 4B0 loitNS 
x?<n-s2(n/suMi 

r — jf, kc-ablfs i/k« hixtubf 

HXun-H$un«»40m*S2m 

0Tl«S2nMSBW(I> 

NRiTFiA»4Tci i*(AsiM)n*i»» j>i>)}»snHm*s2(n»on 
A70 F0R«AH9»#I2»1H.#AX»3*A»1I*1D20. S> 

ABO COmiHUI 

r— — H30BO IN JOOI.fS/RG RFACTAMT NIXTURE 
HSUdO«HSUH*»eAS*TK 
C— — RMf)P IS BASS pANStlYr «Q/r'.* « 

«Kn*i.p*/(fiCAS*Tt«*SB) 

r 

SHTNV-l.ODO/SB 

W»ITF(6»A90» TK»HSO«0»f'A»»MOAfSBIHV 
A90 FO»BAT«lHC//l?*.nHTF«BFRATl|RE •* XF012,3* 3X»9H0EC A/ 
A12X»lOHEHTHAlFr -» 3X » 1 PO 12 . 3« 3X *9MJ0UIE S/KG/ 

A12«»lOHPAFSSURF "•aX»lP012*3»3Xt6MN/H*«2/ 

Cl?**9HOF*iSITY -» AX.IP012.3*3X»7HK6/N**9/ 

^ ni2X>13HBFAB POL WT •*lPt)12.3t3X*9HKe/X6HOLE//t 

r ON RETURB* CAILIHG PROGRAB BUST STORE BOLE NUBBFRS S2III* 

C —PRESSURE* TEBPFRATURE* ENTHALPT ANO OENSITV AT APPROPRIATE INIET 

C—— inlet GtIO NOPE 
C 

RETURN 

ENO 

SUBROUTINE HCPS 

r ••• BOOIFTEO FOR CONOENSEO SRECIES T-79 O.T. PRATT 
C 

OnURLE PRECISION CPSUB* FBV* ER* Fa* H$UBO*NSUB*HO« PA* PPLN* 

I 00*01*C2,99.«A*RGAS*RGA$IN,RKOP,SB*SBIMV*SBH.SSAWE.SO*S1*S2»TK* 

» TKINV*TLN»7*SB0 

OOURLF PRFCISIOH CPI * C P2 *C P3*C PR. CP9 r P2» P29 • P333* P9. TKCU* T«SG* TK A 
LOGICAL LAOIAP*LCrNVG*LOF«UG*LEOUIL*LNRG*LREArT*LENER 
C 

COBBON 

1/CGhEBI/cpSUB*HSUB,F0,PPLN*RGAS*R6AS£N*SN|H»,TK1NV»UN,LNR6 
1 / CINl>EX/TOCO* IDFU*I002* t0N2»I0H20*I0C02* IOHl*IDH2* lONl* tONO* ti)N02 
1. TOO* TOPH,IHCPS*lLC.ILH,IBAT*ITER»JJ*Nl*N?.N3*NA,NGtOF>,NCLnHP* 

? NLB,NO»NSB*HSl»NS2* lOCH 

l/CPARAB/ASUBOO*3>*EBV,EP*HSUBO*NOEaU6*NS*PA*OC*fil*02*P3>OA*RHOP* 

I SB.SBw(30l*SP0*Slt3O»*S2(30».Ti'*LA0IA9.l0IBUG*LI9UIL*LRElCT*LENFR 
’*EOKlJ*LCnN«G 

l/''SPErE/NCO0»*S0(30l*SSAXE(30»*)!IA20» 

r 

r THIS SURRCUTINE CALCULATES THE NQN-OIHENSIONAL* 1-ATB VALUES OF 
C ENTH*l»V. SPECIFIC HEAT* ANO ENTRQPT FOR A GIVEN VALUE OP TFBPERATURE 
C (OFG Kt THE Z APRA7 IS REEEHENCEO AS HAVING 0NL7 ONt SUBSCRIPT 
C TO SAVE INTEPNAl SUBSCRIPT CALCULATIONS. 
r Znc.TT.ISI — nK + 7*<lT~r«7P29nS»lM FOR 1(7*2*20) 

C WHERE IC«1*7 COFF FOR TEBP RANGE lT-1 OR 2, FOR SPECIES IS*1»NS. 
r note that T:.E firxt ? SUBSCRIPTS ARE REVERSED FRQB THE 
C GOPOON AND NCPPIOF practice 

C RFPFRENC) GUROON ANp NCBPtOE (NASA SP-273* 1971) 


C 

HAIA tCIT/lA/ 

0A7A »2 *P2'>.P3 33. R9/0. 200.0.2100*0. 9 3 3333300*0,900/ 


CRKO 

A93 

CRBO 

A9A 

CRKQ 

A99 

CRBO 

ASA 

CRKfl 

A97 

CRKO 

ASA 

CRBO 

A99 

CRBO 

A60 

CRBO 

A61 

CRBO 

A62 

CRBO 

A69 

CRBO 

AAA 

CRKO 

AOS 

CRBO 

A06 

CRBO 

A07 

CRBO 

A6B 

CRBO 

A69 

CRKO 

A70 

CRKO 

ATX 

CRKO 

A72 

CRKO 

AT3 

CRBO 

A7A 

CRBO 

479 

CRKO 

A7A 

CRKO 

A77 

CRBO 

A78 

CRKO 

AT9 

CRBO 

ABO 

CRBO 

ASl 

CRKO 

A82 

CRBO 

AB3 

HCPS 

2 

NCPS 

3 

HCPS 

A 

NQKX 

192 

NQXXX 

30 

NOXXX 

31 

t<QXXX 

32 

No;rx 

393 

HCPS 

7 

HCPS 

A 

NOXX 

39A 

NOXX 

391 

NOXX 

390 

ASTEP 

All 

HCPS 

12 

NOXX 

39B 

NOXX 

399 

NOXX 

AOO 

HCPS 

19 

HCPS 

16 

HCRS 

17 

HCRS 

18 

HCPS 

19 

HCPS 

20 

HCPS 

21 

HCPS 

22 

HCPS 

23 

HCPS 

24 

HCPS 

29 

HCPS 

2A 

HCPS 

27 

HCPS 

2B 

Nnxxx 

33 


2B 


OR.': : 'r 

Oh > c', : / 


^ IT-0 ORIGIN AL PAGE iS 

^ IF (T«.iT.uoo.oooi n«7 QP QUAUTY 

TKSO-TK**? 

TFCi»-TltSO*Tie 

Tir4-TKru*TK 

C<»SU"-0.00C 

on Tn (U»7101»41WIHCPS 

C 

c—— -IHCPS-l — JUST C^SU" JNO KOin •Eoumo 
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APPENDIX E 

LIST OF DEPENDENT VARIABLES 


AND SOURCE TERMS 
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appendix e 

LIST OF DEPENDENT VARIABLES AND SOURCE TERMS 

TABLEE-1 


Dependent 
Var table 
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TABLE E-1 (Contd) 


Dependent 

variable Source Term 


0 

{Mixture 

fraction) 

^^‘evap 



mr 

(UnburnT: fuel 
mass fraction) 

As pet four-step mechanism, (Chapter 
modified by the eddy-break-up model 
Ref. 1, Page 23. 

VI) 

as 

and 

in 

{Interi^^aite 
hydrocarbon 
mass fraction) 

A added on to m^,, source, 

evap i-u 



(CO S?ass 
fraction) 




(H 2 mass 
fraction) 




Soot nuclei 
and particle 
concentrations 

As given in Chapter III, equations 
(29) . 

(28) 

and 

h 

(Stagnation 

euthalpy) 

2a t (R^ - E) + (R*^ - E) + (R^' - E)J 
^ "^evap ^fuel 




In the above table, the symbols have the meanings; 

X, r, 0 = axial, radial, tangential directions; 

„ == effective viscosity; 

' V 1 1 

p = pressure; 

^ density; 


28 fl 


G 


k 


^off 


t2 j ( 


<)u. 2 

Ox' 


+ 


(Mx2 + 
'Or' ^ 





^Hx 2 


hr 


Pv, 2 
Px' 


+ ( 


ilw 

Pr 


_Pv 

rPfT 




^1' ^2 ~ Turbulence model constants; 


s'* - 

spray' 

s'^ 

spray, 

s'^ 

spray 

evap 
a = 

E = 


Momentum transfer from spray to the uas phase u, v» 
and w - momentum equations; 


rate of spray evaporation per unit volume; 


Absorption coefficient defined as radiation absorbed 
per unit length; 

Blackbody emissive power; 


R^, R^ 


H 


fuel 


Composite radiation fluxes (See equations 37, 
38 . and 3<1 1 • 


38 , and 39) ; 

Heat of formation of fuel. 




APPENDIX P 


INPUT DATA FOR JT8D-17 COMBUSTOR TEST CASE 


APPENDIX F 


INPUT DATA FOR JT8D"17 COMBUSTOR TEST CASE 


In this Appendix, a listing of the input data used for the JT8D-17 
Combustor computations is provided. The data shown is for the 
takeoff case using the four-step hydrocarbon oxidation mechanism. 
The specif icalton of the X, x, and 0 grids is contained in lines 
630-670. Other Inputs may be easily interpreted with reference to 
the input description provided in Appendix B. 
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APPENDIX G 


DIMENSIONS OP VARIABLE ARRAYS 

The program listing shown in Appendix D is for a 10 x 10 x 5 (axial 
X radial x tangential) grid. In order to change the number of nodes 
to any NX, NY, NZ, the dimensions of various variable arrays have 
to be changed as indicated on the following page. Some of the vari- 
ables are dimensioned as (NX, NY, NZ) in some subroutines and as 
(NXYZ) in others. Both forms are indicated below. In addition, in 
BLOCK DATA, NI, NJ, and NK have to be set to NX, NY, and NZ, respec- 
tively. 


NXYZ - NX*NY*NZ 
NXY - NX*NY 


PRCCEDING PAGE BLANK NOT FILMED 


Variable 


DimensionB 


P 


(NXYZ, 7) or (7* NXYZ) 


DU, DV, DW, ANUC, SOOTl, SOOT2, FCH, 
PH 2, RHO, Vise, ABSR, SCTR, DRHODP, 
U, V, W, PP, P, TEMP, GAM 


(NX, NY, NZ) 
or 

(NXYZ) 


PS 


(NXYZ, 14) 


GENR, SUPO, SPPU 


(NXYZ) 


SU, SP, AXP, AXM, AYP, AYM, AZP, AZM, (NX, NY) 

CZ, CZU, CZP, DIVG or 

(NXY) 


AXMK, AXPK, AYMK, AYPK, AZMK, AZPK, (NX-2) * (NY-2) * (NZ-2) 

SUK, SPK, EVAP, EVAPU, EVAPV, EVAPW, 

EDK, EDR 2 


EVSU 

CY, CYU, CYP, X, XS, XSU, XDIP, PXP, 
FXM, FIO, TEMTM, H, FUEL, PUOX, UIN, 
TIN, FUELS 

R, RM, RMV, YSR, YSVR, Y, YS, YSV 
YDIF, FYP, FYM, JM 

Z, ZS, ZSW, ZDIF, FZP, FZM, KM 

iwLi, ivn:.o 

JWLO, JWLI 

JKIN 

IKIN 


(NX-2)* (NY-2) 
GB. (NX) 

GE- (NY) 

GE *(NZ) 
GE.(NY, 5) 
GE.(NX, 5) 

GE. (NY, NZ) 
GE.(NX, NZ) 
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